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Preface 


Dr.  Patrick  M.  Heminger  of  the  Air  Force  Materials 
Laboratory,  Wright-Patterson  Air  Force  Base,  Ohio,  developed 
and  built  a  Hall  effect  experimental  apparatus  to  gather 
data  on  the  impurity  levels  and  electrical  properties  of 
silicon  samples.  While  successful,  the  experiment  was  long 
and  awkward  to  perform.  He  decided  to  automate  it  and 
towards  this  end  purchased  an  LSI -11  microcomputer  system 
and  automated  instrumentation  compatible  with  it.  Starting 
with  the  system,  I  designed  and  implemented  the  software 
system  necessary  to  make  this  system  function.  This  report 
details  the  process  of  designing  and  implementing  this 
system. 

I  want  to  thank  Dr.  Thomas  C.  Hartrum,  my  thesis 
advisor,  for  his  help  and  guidance.  He  provided  the  basic 
direction  from  which  I  was  able  to  proceed  to  begin  the 
design  of  AHEEDAS,  and  as  the  design  progressed,  was  always 
available  to  discuss  problem  areas.  In  addition,  he  went 
over  multiple  drafts  of  this  report  in  detail  to  help  shape 
it  into  a  useable  product.  The  other  members  of  the 
committee,  Dr.  Gary  B.  Lamont  and  Capt.  John  M.  Borky  also 
provided  valuable  guidance  during  the  course  of  this  project. 

I  also  want  to  thank  Dr.  Hemenger,  the  thesis  sponsor 
who  provided  the  thesis  topic  and  Mr.  Steve  Smith  of  the 
University  of  Dayton  Research  Institute  (on  site  contractor). 
Both  of  these  men  provided  valuable  guidance  on  the  desired 
results  of  the  experiment  and  suggestions  as  to  how  the 


calculations  necessary  to  implement  the  various  functions 
might  best  be  done. 

Special  mention  must  go  to  Mr.  Frank  E.  Beital  and 
Mr.  Dane  Hanby  of  the  University  of  Dayton  Research  Insti¬ 
tute  (on  site  contractors).  Mr.  Beital  wrote  several  of  the 
device  drivers  and  provided  continual  and  invaluable  guid¬ 
ance  on  how  the  LSI -11  could  be  made  to  efficiently  perform 
the  desired  functions.  Whenever  I  reached  a  "dead  end," 
he  was  usually  able  to  show  me  the  error (s)  that  I  had  made 
and  put  me  back  "on  track."  Mr.  Hanby  did  all  of  the 
hardware  interfacing  for  the  automated  equipment.  He 
designed  and  built  several  of  the  interfaces  from  "scratch" 
and  without  his  expertise,  the  AHEEDAS  would  have  had  no 
system  to  control. 

I  would  also  like  to  thank  Capt.  William  Walker  for 
allowing  me  the  use  of  the  resources  of  the  Computer 
Activities  Division,  Air  Force  Materials  Laboratory,  without 
which  successful  completion  of  this  thesis  would  not  have 
been  possible  and  to  Ms.  Carla  Smith  who  typed  the  final 
copy  of  this  report. 

Finally  and  most  importantly,  I  would  like  to  thank  my 
wife,  Deborah,  and  son,  Edgar.  Without  their  love,  under¬ 
standing  and  support  through  the  long  nights  and  weekends, 
this  thesis  would  not  ever  have  been  finished. 
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Abstract 

The  Air  Force  Materials  Laboratory  conducts  experi¬ 
ments  using  the  Hall  effect  to  characterize  the  electrical 
properties  and  impurity  levels  of  silicon  samples.  Both 
the  van  der  Pauw  and  the  classical  Hall  bar  methods  are 
used. 

The  purpose  of  this  study  was  the  development  of  an 
Automated  Hall  Effect  Experiment  Data  Acquisition  System 
(AHEEDAS)  to  control  the  conduct  of  the  experiment  and  to 
reduce  all  of  the  necessary  data.  The  design  system  is 
capable  of  controlling  all  aspects  of  the  experiment  except 
the  temperature.  The  AHEEDAS  produces  as  output,  sample 
resistivity.  Hall  mobility,  carrier  concentration  and  the 
Hall  coefficient  as  a  function  of  temperature.  These  are 
stored  in  data  files  on  floppy  disk  storage  along  with  all 
of  the  raw  data  from  the  experiment.  The  output  is  also 
printed  on  the  computer  terminal  as  the  experiment  is  done. 

An  LSI-11  microcomputer  with  28K  words  of  memory  is 
used  to  control  the  experiment.  Software  was  developed 
to  allow  this  system  to  handle  the  acquisition  and  pro¬ 
cessing  of  data.  The  AHEEDAS  was  successfully  implemented 
and  tested.  All  functions  other  than  the  temperature  con¬ 
trol  are  fully  operational. 


ix 


I.  Introduction 


The  Air  Force  Materials  Laboratory  (AFML) ,  Wright- 
Patterson  Air  Force  Base,  Ohio,  uses  a  Hall  effect  experi¬ 
ment  to  analyze  the  dopant  and  impurity  content  of  silicon 
samples.  They  wanted  to  develop  an  Automated  Hall  Effect 
Experimental  Data  Acquisition  System  (AHEEDAS)  in  order  to 
increase  both  the  speed  and  accuracy  of  their  experiment. 
This  report  describes  the  design,  development  and  imple¬ 
mentation  of  this  system. 

Background 

The  concentrations  and  activation  energies  of  electric¬ 
ally  active  impurities  are  important  quantities  for  the 
complete  characterization  of  semiconductors.  Measurements 
of  sample  resistivity  and  Hall  voltage  versus  temperature 
enable  the  experimenter  to  determine  the  electrical  trans¬ 
port  properties  of  a  semiconductor  sample  from  which  the 
net  impurity  concentrations  and  carrier  mobility  can  be 
determined  (Ref  4) . 

The  experiment  was  originally  done  manually;  it  took 
from  six  to  eight  hours  to  make  all  the  necessary  measure¬ 
ments  on  one  sample.  Using  the  van  der  Pauw  method,  twenty 
voltage  versus  current  measurements  are  made  for  each 
temperature  point.  Thirty  to  sixty  temperature  points  are 
needed  for  a  complete  curve.  Therefore,  600  to  1200  data 
points  are  needed  for  each  sample.  Clearly  automation  was 
needed  to  assist  in  this  experiment.  In  addition  to  freeing 
the  experimenter  to  do  other  tasks,  the  experiment  could  be 


greatly  enhanced  by  the  increase  in  accuracy  as  well  as 
speed.  The  increased  speed  allows  many  more  data  points  to 
be  taken  per  sample. 

Statement  of  Problem 

The  purpose  of  this  study  was  to  design  and  implement 
the  hardware  and  software  to  control  the  Hall  Effect 
experiment  and  to  collect  and  reduce  the  data  from  it  with 
an  LSI -11  data  acquisition  system.  The  system  was  to  be 
designed  to  control  all  aspects  of  the  experiment  and  to 
take  all  required  data.  These  data  were  to  be  written  onto 
floppy  disc  storage  for  later  use.  A  real-time  monitoring 
of  the  experimental  data  was  required.  Future  expansion 
needs  were  also  to  be  defined. 

Constraints /As sumptions 

Prior  to  requesting  assistance  with  developing  the 
system,  AFML  purchased  an  LSI -11  microcomputer  system 
(described  in  Chapter  II)  and  automated  instrumentation. 

This  constrained  the  freedom  of  hardware  selected.  The  only 
hardware  which  was  not  specified  was  that  for  the  imple¬ 
mentation  of  the  temperature  controller  and  that  future 
expansion. 

The  user  requested  that  for  the  first  stage  of  develop¬ 
ment  the  temperature  control  be  left  manual  and  that  the 
remainder  of  the  system  be  implemented.  This  was  to  ensure 
that  a  minimum  system  would  be  made  operational  by  the  end 
of  this  investigation. 
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Scope  of  Thesis 

The  structured  analysis  and  design  technique  (SADT) 

(Ref  11)  was  used  to  develop  the  activity  model  of  AHEEDAS 
(Ref  Chapter  III).  The  LSI-11  microprocessor  was  used  as 
the  processor.  It  and  its  associated  hardware  system  are 
discussed  along  with  the  experimental  environment  in 
Chapter  II.  The  software  modules  were  designed  and  coded 
(Chapter  IV) .  The  hardware  and  the  software  were  integrated 
and  functionally  tested  (Chapter  V) .  All  portions  of  the 
first  stage  system  are  functional  at  this  time.  Recommen¬ 
dations  for  further  study  have  been  included  in  Chapter  VI. 


I I .  Experimental  Environment 


Before  the  requirements  of  the  system  are  defined,  the 
original  environment,  including  the  design  constraints,  will 
be  described  and  discussed.  Once  all  of  the  constraints  are 
identified,  the  next  step  of  the  analysis  can  be  performed. 
In  this  chapter,  the  background  theory  of  the  Hall  Effect 
experiment  will  be  discussed,  followed  by  a  discussion  of 
the  originally  purchased  hardware  system. 

Theory 

Two  types  of  sample  configurations  are  used  in  the 
Hall  Effect  experiment:  the  van  der  Pauw  and  the  Hall  bar 
(Ref  22).  The  geometry  of  the  two  configurations  and  the 
calculations  necessary  to  use  them  are  presented  below. 

The  van  der  Pauw  technique  uses  a  sample  having  only 
four  electrical  contacts  (see  Figure  1) .  In  each  of  the 
six  configurations  shown,  the  potential  difference  between 
VI  and  V2  is  recorded.  Additionally,  these  measurements 
are  repeated  with  the  battery  polarity  reversed.  In  sample 
configurations  (e)  and  (f) ,  the  voltage  difference  between 
VI  and  V2  with  a  magnetic  field  applied  perpendicularly  to 
the  sample  is  also  measured.  Both  polarities  of  the  field 
must  be  used  for  these  measurements  (Ref  4) .  From  these 
data,  four  parameters  are  calculated:  resistivity,  Hall 
mobility,  carrier  concentration,  and  the  Hall  coefficient. 


Figure  1,  van  der  Pauw  Configuration  Sample  Geometry. 


The  derivations  of  the  necessary  formulae  for  both  the 
van  der  Pauw  and  the  Hall  bar  configurations  can  be  found 
in  the  van  der  Pauw  report  on  the  Hall  Effect  experiment 
(Ref  22) . 

Resistivity,  p,  in  ohms -centimeters ,  is  given  by. 


( 


p 


fft(Ra  *  V 

21n  2 


(1) 


where  t  is  the  thickness  of  the  sample  in  centimeters,  and 
Ra  is  found,  using  sample  configuration  (a)  from 
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(2) 


where  V  is  the  voltage  difference  between  VI  and  V2 ,  and 

cl 

Ia  is  the  current  between  the  battery  contacts.  Likewise 
from  sample  configuration  (b) 


Sample  configuration  (c)  is  equivalent  to  (a) ,  and  (d)  is 
equivalent  to  (b) .  Both  polarities  of  these  configurations 


are  measured  and  the  results  averaged.  The  parameter 


Reference 


the 

22. 


"van  der  Pauw  f," 


which  is  approximated  by 


Hall  mobility,  y^,  in  square  centimeters/volt-second 
is  given  by 


A  R  t 

y.  =  - •  108  (5) 

PB 


where  t  is  sample  thickness,  p  is  resistivity,  B  is  the 
applied  magnetic  field  in  gauss,  and  ARg  is  the  change  in 
resistance  computed  from  position  (e)  of  Figure  1  when  the 
magnetic  field  is  applied  perpendicularly  to  the  sample. 


6 


V  +  is  the  voltage  measured  in  sample  position  (e)  with 
an  applied  magnetic  field;  Vg~  is  the  same  measurement  with 
the  magnetic  field  reversed,  and  VQ  is  an  offset  voltage 
generated  by  non-uniform  sample  composition  or  geometry  or 
both.  Reversal  of  the  current  polarity  and  proper  averaging 
of  the  measured  voltages  give  a  correct  value  for  the  true 
Hall  voltage,  V  .  Now, 


therefore , 


(8) 


2 


where  V  +  and  V  are  as  defined  above  and  I  +  and  I  are 

C  6  6  6 

the  corresponding  currents.  The  above  measurements  are 
repeated  with  the  current  reversed  and  the  results  are 
averaged.  Position  (f)  yields  the  same  results  and  these 
are  averaged  with  the  results  from  (e) . 

Carrier  concentration,  p,  in  inverse  centimeters  cubed, 
can  be  determined  from 


P  =  a  _L_  (10) 

ycep  yhep 

where  wc  is  the  conductivity  mobility,  is  the  Hall 

mobility,  e  is  the  electronic  charge  in  coulombs  and  p 

is  the  resistivity  in  ohms -centimeters .  Conductivity 

mobility  is  approximated  by  the  Hall  mobility  because 

precise  information  about  is  not  available.  It  can  be 

“h 

assumed  that 


The  Hall  coefficient,  R^, 


Cll) 


in  centimeters  cubed  coulomb. 


is  given  by 


( 


(12) 


where  p  i1-  the  resistivity  in  ohm-centimeters,  p  is  the 

c 

conductivi  mobility  in  squared  centimeters/volt -second. 


p  is  the  carrier  concentration  in  inverse  centimeters  cubed. 


e  is  the  electronic  charge  in  coulombs,  p^  is  the  Hall 
mobility  in  squared  centimeters/volt-second. 


The  Hall  bar  geometry  is  shown  in  Figure  3. 


Figure  3.  Hall  Bar  Configuration  Sample  Geometry. 

As  Figure  3  shows,  the  Hall  bar  sample  has  five 
contacts  rather  than  the  four  of  the  van  der  Pauw.  The 
equations  used  for  this  configuration  are  similar  to  those 
used  for  the  van  der  Pauw  sample.  However,  with  this  sample 
all  three  dimensions  must  be  known  instead  of  just  the 
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thickness  of  the  sample.  The  method  is  discussed  complete¬ 
ly  in  the  Reference  22.  The  formulae  needed  to  reduce  the 
sample  data  for  the  Hall  bar  are  given  below. 


Resistivity,  p,  in  ohm  centimeters,  is  given  by 

wtV 


P  =  77  (13) 

where  w  is  the  sample  width  in  centimeters,  t  is  the  thick¬ 
ness  in  centimeters,  1  is  the  distance  in  centimeters 
between  contacts  R1  and  R2  in  Figure  3,  V  is  the  voltage 
drop  between  the  contacts  and  I  is  the  current  between 
contacts  Cl  and  C2,  in  amperes. 

Hall  mobility,  p,  in  centimeters  squared/volt-second, 
is  given  by 


ph  =  -i- 
wB 


i_  f  i  (i°8j 

/B  v.  I  'sK.  V  J  ^  ^ 


(14) 


where  B  is  the  magnetic  field,  in  gauss,  VH  is  the  voltage 
measured  between  R2  and  H  with  the  magnetic  field  applied, 
I'  is  the  corresponding  current. 

Carrier  concentration,  p,  in  inverse  centimeters  cubed 
is  given  by 


P  =  Ii*\  (15) 

et  V,  Vjj/ 

where  B,  I',  VH,  and  t  are  defined  above,  and  e  is  the 
electronic  charge  in  coulombs. 

The  Hall  coefficient,  RH,  is  as  defined  in  equation 
(12).  These  ve  the  formulae  that  are  used  in  the  experi¬ 
ment  to  produce  the  output  data. 
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System  Hardware 

Figure  4  shows  the  block  diagram  for  the  hardware 
system  which  had  been  purchased.  The  components  are  as 
follows . 

-  Digital  Equipment  Corporation  (DEC)  LSI -11  micro¬ 
computer  with  4K  words  of  memory. 

-  DEC  RXV  11  dual  floppy  disk  option  with  dual  RX01 

floppy  disk  drive. 

-  24K  words  of  add-on  memory. 

-  Anderson  Jacobson  A242A  acoustic  coupler  and 

DLV-11  serial  interface  card. 

---  Hewlett-Packard  Model  7221A,  Remote  terminal  Four 
Color  X-Y  plotter  (not  yet  received)  with  DLV-11  serial 
interface  card. 

-  Computer  Devices  Terminal  Model  Miniterm  1202,  with 

DLV-11  serial  interface  card. 

---  Hewlett-Packard  Digital  Voltage  Source,  Model  6130C, 
with  two  DRV-11  parallel  interface  cards. 

-  Walker  Magnemetrics  Gaussmeter,  Model  MG- 3D  with 

DRV-11  parallel  interface  card. 

---  Magnet  controller  (designed  and  built  in-house  by 
University  of  Dayton  Research  Institute  contractor)  with 
DRV-11  parallel  interface  card. 

-  Test  Controller  (designed  and  built  by  University  of 

Dayton  Research  Institute  contractor)  with  DRV-11  parallel 
interface  card. 
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COMPUTER  |  EXPERIMENT 


Figure  4.  Block  Diagram  of  the  AHEEDAS 


-  Hewlett-Packard,  IEEE  488-1975  compatible,  HPIB 

isolated  Digital/Analog/Power  Supply  programmer,  Model 
59501A. 

-  Keithley  Digital  Electrometer,  Model  616  with 

Model  6162  isolated  output  control  with  DRV-11  parallel 
interface  card. 

-  Hewlett-Packard,  IEEE  488-1975  compatible,  Digital 

Voltmeter,  Model  3455A. 

-  Hewlett-Packard,  IEEE  488-1975  compatible.  Multi¬ 
plex  Scanner,  Model  3485A. 

-  Hewlett-Packard,  IEEE  488-1975  compatible,  GPIB-11 

instrumentation  bus  controller. 

Each  piece  of  equipment  was  interfaced  to  the  LSI -11 
with  a  small  MACRO  assembly  language  driver  subprogram 
supplied  by  AFML/DOC  (reference  Appendix  C) .  All  but  two 
pieces  of  the  equipment  were  adequate  for  the  implementation 
of  the  system.  It  was  not  determined  whether  the  Hewlett- 
Packard  Model  6130C,  Digital  Voltage  Source  would  be  adequate 
for  the  temperature  control.  See  the  Recommendations  in 
Chapter  VI  for  more  discussion  of  this  problem.  The  Walker 
gaussmeter  is  a  problem.  It  intermittantly  locks  up  in  use. 
The  digital  interface  appears  to  have  been  added  by  the  manu¬ 
facturer  as  an  afterthought  to  the  design  and  is  very  awkward 
to  use.  At  best,  its  use  will  be  limited  by  the  lack  of  any 
auto  ranging  ability.  The  system  was  designed  to  work  auto¬ 
matically  with  or  without  the  gaussmeter  in  the  circuit.  The 
GPIB-11  controller  and  software  were  a  continuous  source  of 
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problems.  However,  these  problems  were  solved  after  much 
consultation  with  National  Instruments.  They  ultimately 
replaced  both  the  original  interface  card  and  the  software. 
Future  expansion  of  the  system  may  uncover  more  problems 
with  this  interface. 

Original  Environment 

Originally,  the  experiment  was  executed  manually.  The 
temperature  was  controlled  with  an  analog,  closed-loop 
controller.  All  other  instrumentation  was  manually  operated. 
The  operator  had  to  set  the  voltage  across  the  sample,  switch 
between  sample  positions,  and  set  the  field  as  well  as  set 
the  temperature  controller.  Data  were  read  by  the  operator 
and  hand  logged.  An  abbreviated  set  of  data  points  was  used 
for  van  der  Pauw  samples  in  order  to  keep  the  execution 
time  of  the  experiment  down  to  about  six  hours.  On  the 
first  and  each  succeeding  alternate  temperature,  sample 
configurations,  plus  and  minus  a,  plus  and  minus  b,  and 
plus  and  minus  e  were  done  (reference  Figure  1) .  On  the 
second  and  each  succeeding  alternate  temperature,  sample 
configurations  plus  and  minus  c,  plus  and  minus  d,  and 
plus  and  minus  f  were  executed.  In  this  manner,  20  to  30 
temperature  points  could  be  taken  in  the  range  from  about 
20  degrees  Kelvin  to  300  degress  Kelvin.  These  data  were 
then  entered  manually  into  a  computer  so  that  they  could 
be  reduced  and  analyzed.  Hall  bar  samples  were  run  in  a 
similar  manner  except  that  it  was  not  necessary  to 
abbreviate  the  set  of  data  points  used. 
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Summary 

In  this  chapter,  the  pre-existing  system  constraints 
were  briefly  listed  and  discussed.  The  original  manual 
method  of  executing  the  experiment  was  also  discussed  to 
give  some  background  on  what  will  be  required  of  AHEEDAS . 
In  the  next  chapter,  the  requirement  for  AHEEDAS  will  be 
defined  using  SADT. 
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Ill .  Requirements  Definition 


It  is  difficult  to  translate  the  conceptual  idea  for 
any  system  larger  than  trivial  size,  into  the  solid  basis 
for  system  design.  The  first  step  of  the  design  was  to 
break  the  complete  system  into  functional  subunits,  or 
modules.  The  modules  are  further  divided  until  their  func¬ 
tion  is  simple  enough  to  be  easily  defined.  This  process  is 
called  the  requirements  definition  phase.  A  carefully  done 
requirements  definition  ensures  that  the  system  requirements 
are  fully  understood  by  both  the  system  designer  and  the 
system  user.  Ambiguities  in  the  design  and  implementation 
are  eliminated. 

Method  for  Analysis  and  Design 

The  Structured  Analysis  and  Design  Technique  (SADT)  is 
a  design  methodology  for  performing  the  functional  analysis 
and  design  of  complex  systems  (Ref  11).  A  functional  model 
(usually  referred  to  as  an  activity  model)  is  created  first 
to  aid  in  understanding  what  activities  the  system  is 
expected  to  perform.  This  activity  model  is  then  validated 
with  the  system  user  to  ensure  that  all  requirements  have 
been  met.  Any  necessary  changes  are  easily  and  quickly  made 
at  this  stage.  Following  validation,  the  functional  model 
is  broken  down  further  to  create  the  actual  design  model 
which  will  show  how  the  system  actually  performs  its  functions. 

The  SADT  methodology  is  defined  in  Appendix  A. 

The  SADT  was  chosen  as  the  analysis  and  design  tool 

I 

M  ' 
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because  it  is  a  graphical  method  of  analyzing  the  functional 
requirements  of  the  system,  and  it  is  readily  understood  by 
people  with  a  variety  of  backgrounds.  This  facilitates 
design  review.  The  activity  model  --  which  shows  all  of 
the  functions,  or  activities,  which  the  system  must  per¬ 
form  --  is  independent  of  how  a  function  is  implemented. 

Any  changes  in  the  model  can  be  made  at  this  stage  without 
the  major  changes  to  the  system  that  would  be  required 
later.  The  completed  activity  model  is  easily  reviewed  by 
all  concerned  system  users  and  any  errors  corrected. 

Activity  Model 

Before  drawing  the  activity  model,  the  system  is 
divided  into  its  component  functions.  These  are  assigned 
node  numbers  and  organized  together  to  produce  the  initial 
breakdown  of  the  system.  Table  I  shows  the  node  heirarchy. 
Explanations  of  each  node  follow. 

Table  I .  Node  Index. 

A-0  Conduct  Experiment  and  Process  Data 

A1  Initialize  Parameters 
A2  Determine  Settings 
A3  Set  Parameters 
A4  Acquire  Data 
A5  Reduce  Data 


17 


Node  A-0,  Conduct  Experiment  and  Process  Data  (Figure  5) 
This  node  is  the  top  level  model  of  the  complete 
AHEEDAS.  The  system  requirements  are  shown.  User  require¬ 
ments  for  the  Experimental  Data  Parameters  are  input  (II) 
from  the  terminal.  When  equipment  is  inoperative,  the 
required  data  is  manually  read  and  entered  from  the 
terminal  by  an  operator  to  simulate  data  readings  from  the 
automated  equipment  (12).  Actual  data  are  input  from  the 
automated  instrumentation  (13).  Terminal  entries  (Cl,  C2 
and  C3)  control  the  execution  of  the  system.  The  dialogue 
is  sent  to  the  terminal  (01)  ;  the  experimental  data  para¬ 
meters  are  then  set  by  the  hardware  (02) ;  the  data  are 
recorded  and  output  to  the  terminal  (03,  04,  and  07),  the 
disk  (06),  and  the  plotter  (05).  If  manual  input  is 
required,  a  prompting  message  is  displayed  on  the  terminal 
(01). 

The  AHEEDAS  will  be  able  to  complete  a  sample  run 
unattended  once  all  initialization  is  complete.  The  run 
time  should  be  limited  only  by  the  experimental  system's 
capacity  for  coolants  (liquid  helium) .  The  operator  need 
only  assure  that  all  systems  are  serviced  prior  to  the 
start  of  execution. 

Node  AO,  Conduct  Experiment  and  Process  Data  (Figure  6) 

Node  AO  shows  the  decomposition  of  the  node  A-0  into 
five  subordinate  nodes, 

A1  ---  Initialize  Parameters 
A2  ---  Determine  Settings 
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Figure  5.  Node  A-0  Conduce  Experiment  and  Process  Data 


Figure  6.  Node  AO  Conduct  Experiment  and  Process  Data 


A3  —  Set  Parameters 
A4  —  Acquire  Data 
A5  -  Reduce  Data 

When  the  user  starts  execution,  the  activity  Initialize 
Parameters  interactively  interrogates  him  to  determine  the 
required  experimental  parameters.  Execution  will  then  halt, 
allowing  the  user  to  make  certain  that  the  experimental 
equipment  is  ready  to  run,  prior  to  starting  the  experiment. 

The  activity  Determine  Settings  calculates  the  data 
parameters  settings  for  each  data  point  and  passes  them  to 
the  activity  Set  Parameters,  Set  Parameters  makes  sure  that 
all  parameters  are  properly  set  and  generates  the  Start  Data 
Acquisition  signal.  The  activity  Acquire  Data  is  activated 
by  this  signal  and  reads  all  of  the  necessary  data  variables. 
Control  is  then  passed  back  to  Determine  Settings  which 
repeats  the  cycle.  All  of  the  data  points  at  one  temperature 
constitute  a  block  of  data.  When  a  block  of  data  is 
complete,  the  activity  Reduce  Data  is  called.  Reduce  Data 
calculates  all  of  the  necessary  results  and  outputs  these 
results  and  the  data.  Control  is  then  passed  back  to 
Determine  Settings  to  begin  the  next  block  of  data. 

Node  Al,  Initialize  Parameters  (Figure  7) 

Node  Al  is  subdivided  into  five  modules: 

All  -  Select  Function 

A12  -  Create  Desired  Data  Points  Files 

A13  —  Create  Thermometer  Calibration  Files 
A14  —  Operator  Initialization  Dialogue 
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C?  START  PROGRAM  EXECUTION 
I  Cl  TERMINAL  ENTRY 


Figure  7.  Node  A1  Initialize  Parameters 


A15  —  Setup  Files  and  Parameters 

When  Start  Program  Execution  is  received,  the  activity 
Select  Function,  asks  the  operator  if  he  wants  to 

—  create  a  desired  data  points  file 

-  create  a  thermometer  calibration  file 

—  run  an  experiment 

—  exit  the  program 

If  "create  a  desired  data  points  file"  or  "create  a 
thermometer  calibration  file"  is  selected  then  the  appro¬ 
priate  activity  (A12  Create  Desired  Data  Points  Files  or 
A13  Create  Thermometer  Calibration  Files)  done  and  control 
is  returned  to  Select  Function  for  a  new  selection.  If 
"Run  an  Experiment"  is  selected,  then  the  activity  Operator 
Initialization  Dialogue  is  executed.  It  interrogates  the 
operator  to  determine  all  necessary  experimental  parameters. 
Control  then  passes  to  the  activity  Setup  Files  and  Para¬ 
meters,  which  initializes  all  needed  experimental  parameters 
and  arrays  and  opens  the  necessary  output  files.  The  act¬ 
ivity  then  pauses  and  informs  the  operator  that  initializa¬ 
tion  is  complete  and  requests  that  he  input  a  Start  Execu¬ 
tion  command. 

Node  A2,  Determine  Parameters  (Figure  8) 

Node  A2  is  subdivided  into  five  activities: 

A21  —  Determine  Temperature  Settings 

A22  —  Determine  Field  Settings 

A23  ---  Determine  Sample  Configuration  Settings 

A24  —  Determine  Applied  Voltage  Settings 
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c«  START  EXPERIMENT  EXECUTION 

(C2-OATA  PROCESSING  COMPLETE 


Figure  8.  Node  A2  Determine  Settings 


A25  —  Generate  Control  Signals 


When  experiment  execution  is  begun,  the  activity 
Determine  Temperature  Settings  receives  control,  performs 
its  function  and  passes  control  to  the  activities  Determine 
Field  Settings,  Determine  Sample  Configuration  Settings, 
and  Determine  Applied  Voltage  Settings,  in  turn.  This  order 
is  important.  Each  block  of  data  is  defined  by  a  single 
temperature.  Therefore,  temperature  must  be  determined  first. 
The  field  magnitude  is  determined  next,  then  sample  config¬ 
uration.  The  voltage  setting  changes  at  every  data  point. 

It,  therefore,  is  determined  last.  This  order  allows  the 
parameters  that  reach  steady  state  the  most  rapidly  to  be 
reset  the  most  often.  Temperature  and  field,  which  take 
the  longest  to  settle  to  their  steady  state  value,  are 
allowed  to  remain  constant  for  as  long  as  possible.  When 
Determine  Applied  Voltage  Settings  completes  its  calcula¬ 
tions,  it  then  generates  the  Set  Parameters  signal.  When 
all  of  the  points  at  one  temperature  are  complete,  control 
passes  to  the  activity  Generate  Control  Signals,  which  sends 
out  the  Start  Data  Processing  or  the  Experiment  Complete 
signals,  as  appropriate. 

Node  A3,  Set  Parameters  (Figure  9) 

x 

Node  A3  is  subdivided  into  six  activities: 

A31  ---  Check/Set  Field 

A32  —  Check/Set  Applied  Voltage 

A33  —  Check/Set  Sample  Configuration 

A34  —  Check/Set  Temperature 
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Figure  10.  Node  A4  Acquire  Data 


A35  Generate  Acquire  Data  Signal 

A36  Delay  Recheck 

When  the  Set  Parameters  signal  is  received,  the  acti¬ 
vities  Check/Set  Field,  Check/Set  Applied  Voltage,  Check/ 

Set  Sample  Configuration,  and  Check/Set  Temperature  each 
check  the  value  of  the  parameters  under  their  control.  They 
each  generate  a  setting  if  needed  and  generate  either  a 
value  correct  or  an  anticipated  settling  delay  time  signal. 
These  modules  execute  serially  in  this  order  based  on  which 
are  the  most  stable  parameters.  The  most  stable  parameters 
are  set  first  and  left  to  settle  to  steady  state.  Tempera¬ 
ture  is  the  most  unstable  of  the  variables.  As  it  varies, 
it  affects  the  sample  current  and  voltage  readings.  There¬ 
fore,  it  is  set  last  so  that  a  minimum  of  time  will  elapse 
after  a  parameter  OK  signal  is  generated  and  the  Start  Data 
Acquisition  signal  is  sent.  After  Check/Set  Temperature  is 
through,  it  passes  control  to  the  activity  Generate  Acquire 
Data  Signal,  which  checks  whether  all  Value  Correct  signals 
have  been  received.  If  they  have,  the  Start  Data  Acquisi¬ 
tion  signal  is  generated.  If  they  have  not,  control  is 
passed  to  the  activity.  Delay  Recheck,  which  delays  for  the 
longest  of  the  received  delay  time  signals  before  passing 
control  back  to  Check/Set  Field  to  repeat  the  cycle  until 
all  values  are  correct.  The  Start  Data  Acquisition  signal 
passes  control  to  Node  A4. 

Node  A4,  Acquire  Data  (Figure  10) 

Node  A4  is  subdivided  into  the  following  five  functions: 
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A41  -  Read  Temperature 

A42  -  Read  Current 

A43  -  Read  Applied  Voltage  and  Sample  Voltage 

A44  -  Read  Sample  Configuration 

A45  -  Read  Field 

When  the  Start  Data  Acquisition  signal  is  received,  the 
five  activities  read  their  parameters  or,  if  their  Equipment 
Inoperative  Flag  is  set,  request  that  the  operator  input  the 
data  reading  from  the  terminal.  While  the  order  in  which 
the  data  is  taken  is  not  extremely  critical,  the  most 
unstable  parameters,  temperature  and  current,  are  read  first 
whenever  possible.  When  the  field  is  on,  temperature  cannot 
be  accurately  read.  Therefore,  for  these  cases,  the  temper¬ 
ature  is  saved  to  last.  All  parameters  except  temperature 
are  read,  the  field  is  turned  to  zero  and  temperature  is 
then  recorded.  The  data  is  stored  in  the  data  array  and 
the  Data  Acquisition  Complete  signal  is  generated.  This 
passes  control  back  to  node  A2 ,  Set  Parameters,  which 
repeats  its  function  as  previously  discussed. 

Node  A5,  Reduce  Data  (Figure  11) 

Node  A5  is  subdivided  into  the  following  seven  acti¬ 
vities  : 

A51  —  Compute  Temperature 

A52  -  Compute  Data  Output 

A53  —  Print  Plot  Data 

A54  -  Plot  Data 

A55  ---  Print  Real-Time  Data 
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Figure  11.  Node  A5  Reduce  Data 


A56  —  Write  Data  Arrays  to  Disk 

A57  -  Print  Output  Data  Array 

When  the  Start  Data  Processing  signal  is  received  from 
Node  A2  (after  the  completing  of  each  block  of  data)  ,  the 
activity  Compute  Temperature  converts  the  voltage  readings 
from  the  thermometer  into  the  calibrated  temperature  values. 
Then,  the  activity  Compute  Data  Output  calculates  all  of  the 
required  output  data  (the  composition  of  this  output  data 
was  detailed  in  Chapter  II,  Theory).  The  appropriate  data 
streams  are  then  passed,  as  required,  to  the  activities 
Print  Plot  Data  and  Plot  Data,  Print  Real-Time  Data,  and 
Write  Data  Arrays  to  Disk,  in  turn.  When  A56  Write  Data 
Arrays  to  the  Disk  is  complete,  the  Data  Processing  Complete 
signal  is  generated.  This  passes  control  back  to  A2  Set 
Parameters,  When  the  Experiment  Complete  signal  is  generat¬ 
ed,  control  is  passed  directly  to  the  activity  Print  Output 
Data  Array.  This  module  reads  the  complete  Output  Data 
Array  from  disk  and  outputs  it  to  the  terminal.  It  then 
terminates  and  control  returns  to  the  computer  operating 
system. 

Summary 

In  this  chapter,  the  overall  system  requirements  were 
defined.  All  activities  that  are  to  be  accomplished  by 
AHEEDAS  have  been  documented.  This  design  was  presented  to 
the  sponsor,  Dr.  Patrick  M.  Hemenger,  AFML/LPO.  He  con¬ 
curred  with  the  design.  No  engineering  decisions  that  were 
not  dictated  by  the  system  constraints,  had  been  made  at 


31 


this  point.  The  next  step  is  the  design  stage  where 
detailed  breakdowns  of  the  activities  may  be  used,  if 
necessary,  to  facilitate  design.  Additional  structure 
charts  and  flow  diagrams  will  be  used  to  document  the 
algorithm  design  in  Chapter  IV. 
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IV.  System  Design  and  Implementation 


After  the  requirements  of  the  system  were  defined 
(see  Chapter  III),  this  definition  had  to  be  transformed 
into  the  actual  design  of  the  system.  This  design  was 
guided  by,  but  not  completely  bound  by,  the  SADT  definition. 
Several  factors  caused  departures  from  the  SADT  design. 

Some  modules  were  found  to  be  trivial  and  were  combined  with 
other  related  modules.  Some  control  signals  were  needed 
that  were  implemented  differently  from  those  on  the  SADT 
definition.  The  overall  design  is  shown  in  heirarchical 
charts  in  Figures  12  and  13.  In  this  chapter,  the  heirarch¬ 
ical  design  will  be  discussed  along  with  the  implementation 
of  the  algorithms. 

Heirarchical  Design 

Figure  12  shows  the  overall  AHEEDAS  system.  All  system 
modules  are  shown  excluding  the  implementation  of  the  device 
drivers.  This  implementation  is  shown  in  Figure  13.  These 
software  modules  correspond  to  the  nodes  of  the  SADT  defini¬ 
tion  except  for  A44  Read  Sample  Configuration  which  was 
combined  with  A4  Acquire  Data.  Module  AO  Conduct  Experiment 
and  Process  Data  is  the  executive  for  the  AHEEDAS  system. 

It  contains  all  of  the  data  specifications  and  it  calls  each 
of  the  five  main  submodules,  A1  Initialize  Parameters  -  A5 
Reduce  Data,  as  they  are  needed.  All  required  intermodule 
data  and  control  signals  pass  through  AO  Conduct  Experiment 
and  Process  Data. 


.■w**  ^ 
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Figure  12.  Heirarchical  Chart  of  AHEEDAS 
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Figure  13,  Heirarchical  Chart  of  A3  and  A4 


Modules  A1  Initialize  Parameters  -  A5  Reduce  Data  are 
the  second  level  executive  modules  for  the  system.  They 
coordinate  the  flow  of  data  and  control  signals  between 
their  subordinate  modules. 

Module  A1  Initialize  Parameters  is  the  first  module 
called  by  AO  Conduct  Experiment  and  Process  Data.  It 
initially  calls  All  Select  Function  which  requests  the  user 
to  enter  his  choice  of  what  to  do  next.  This  choice  is 
passed  back  to  A1  Initialize  Parameters  which  calls  the 
appropriate  function.  Once  initialization  is  complete 
(module  A15  Setup  Files  and  Parameters  has  finished) ,  A1 
Initialize  Parameters  returns  to  AO  Conduct  Experiment  and 
Process  Data  which  calls  A2  Determine  Settings. 

Module  A2  Determine  Settings  calls  each  of  its  sub- 
orginate  modules  in  turn  to  determine  the  initial  data  para¬ 
meter  settings.  The  data  settings  are  also  organized  in  an 
heirarchical  manner.  Therefore,  each  module  will  not  need 
to  be  called  each  time  that  A2  Determine  Settings  is  called 
to  provide  the  parameter  settings.  Control  signals  are 
provided  so  that  A2  Determine  Settings  can  determine  which 
modules  need  to  execute  for  each  run.  When  a  block  of  data 
is  complete  A2  Determine  Settings  passes  the  Start  Data 
Processing  signal  back  to  AO  Conduct  Experiment  and  Process 
Data.  AO  Conduct  Experiment  and  Process  Data  will  then  call 
A5  Reduce  Data.  When  A2  Determine  Settings  returns  to 
AO  Conduct  Experiment  and  Process  Data  without  setting  the 
Start  Data  Processing  signal  AO  Conduct  Experiment  and 
Process  Data  calls  A3  Set  Parameters. 


A3  Set  Parameters  takes  the  parameter  settings  from 
AO  Conduct  Experiment  and  Process  Data  and  calls  each  of 
its  subordinate  modules.  The  modules  will  then  check  to  see 
if  the  value  is  already  set  and  if  it  is  not,  will  set  the 

proper  value  by  calling  the  appropriate  device  driver.  The 

order  in  which  these  parameters  are  set  is  very  important. 

A3  Se".  Parameters  will  not  allow  A31  Set  Field  to  set  the 
field  if  the  field  has  other  than  a  zero  value,  before  the 
temperature  is  set.  This  is  necessary  because  the  field  will 
affect  the  reading  of  the  silicon  thermometer  which  is  used 
to  set  the  temperature.  As  each  module  sets  its  parameter, 
it  will  pass  a  parameter  OK  signal  to  A3  Set  Parameters.  If 
the  parameter  needs  time  to  settle  to  a  steady  state  value, 

the  module  will  not  set  the  parameter  OK  true  but  will 

instead  pass  a  settling  delay  time  back.  If  all  parameter 
OK  signals  are  not  received,  A35  Generate  Acquire  Data  Sig¬ 
nal  sets  the  delay  value  to  the  longest  delay  time  requested 
by  the  other  modules  and  returns  to  A3  Set  Parameters.  A3 
Set  Parameters  then  calls  A36  Delay  Recheck  which  waits  the 
required  amount  of  time  and  then  returns.  A3  Set  Parameters 
then  causes  the  Check/Set  modules  to  execute  again.  When  all 
four  have  executed  A35  Generate  Acquire  Data  Signal  again 
checks  the  parameter  OK  signals  and,  if  they  are  true, 
generates  a  Start  Data  Acquisition  signal.  The  A34  Check/ 

Set  Temperature  module  was  implemented  manually.  As  discuss¬ 
ed  in  Chapter  I,  Constraints/Assumptions,  the  automated 
temperature  controller  could  not  be  implemented  within  the 
scope  of  this  study.  Therefore,  this  module  requests  that 
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the  temperature  be  set  by  the  operator.  He  must  then  enter 
a  signal  that  the  temperature  is  set  and  at  steady  state. 
Because  of  the  delay  that  this  requires,  the  other  settling 
delays  are  reset  to  zero  whenever  manual  input  is  required. 
The  operator's  input  signal  is  then  treated  like  a  parameter 
OK  signal.  When  A3  Set  Parameters  returns  to  AO  Control 
Experiment  and  Process  Data,  A4  Acquire  Data  is  called  to 
read  the  data. 

Module  A4  Acquire  Data  reads  all  of  the  required  data 
parameters  by  calling  A41  Read  Temperature  -  A45  Read  Field, 
in  turn.  A44  Read  Sample  Configuration  was  combined  with 
A4  Acquire  Data  and  does  not  execute  separately.  They  read 
their  parameters  by  calling  the  appropriate  device  interface 
drivers.  As  soon  as  A45  Read  Field  returns,  A4  Acquire  Data 
returns  to  AO  Control  Experiment  and  Process  Data  calls 
A2  Determine  Settings  which  determines  whether  or  not  the 
data  block  is  complete.  If  it  is,  A2  Determine  Settings 
returns  to  AO  Control  Experiment  and  Process  Data  with  the 
command  to  start  data  processing.  AO  Control  Experiment  and 
Process  Data  then  calls  A5  Reduce  Data. 

Module  A5  Reduce  Data  first  calls  A51  Compute  Tempera¬ 
tures  to  convert  all  of  the  temperature  voltage  data  into 
temperatures.  It  does  this  by  using  a  calibration  table 
placed  into  memory  by  A1  Initialize  Parameters.  A55  Print 
Real-Time  Data  is  called  next,  if  the  user  has  requested 
real-time  data  printout,  to  print  out  the  raw  data.  Next 
A52  Compute  Data  Output  is  called  to  compute  the  remaining 
output  data. 
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The  calculations  required  for  these  data  were  discussed  in 
Chapter  II,  Theory.  A53  Print  Plot  Data  is  called  next  if 
the  user  has  requested  a  plot.  It  prints  the  data  pairs  to 
be  plotted.  A54  Plot  Data  is  then  called  to  plot  the  data. 
A54  Plot  Data  is  implemented  as  a  non-functioning  module 
because  no  printer  has  been  purchased.  When  one  is,  the 
user  will  be  able  to  implement  it  easily  by  putting  the 
necessary  software  into  this  module.  Up  to  four  data  pairs 
can  be  specified  to  be  plotted.  Then  A56  Write  Data  Arrays 
to  Disk  is  called  to  write  all  of  the  data  to  the  disk  files. 
If  the  experiment  is  complete  (the  Experiment  Complete  flag 
set  true  by  A2  Determine  Settings)  ,  A57  Print  Output  Data 
Array  is  called  to  print  out  all  of  the  processed  output 
data  in  tabular  form.  Otherwise,  A5  Reduce  Data  returns  to 
AO  Control  Experiment  and  Process  Data  after  executing 
A56  Write  Data  Arrays  to  Disk.  AO  Control  Experiment  and 
Process  Data  then  resets  all  of  the  control  signals  and 
settings  for  the  next  run. 

Implementation 

The  software  used  to  implement  the  above  system  are 
presented  as  listings  in  Appendix  C.  Listings  of  all 
modules  are  shown  except  for  the  National  Instruments  soft¬ 
ware  which  controls  the  IEEE  488  Instrumentation  bus.  This 
is  available  from  National  Instruments  (Ref  1) .  Where 
needed,  flow  charts  are  included  with  each  module  to  clari¬ 
fy  its  design.  The  main  body  of  the  algorithm  (Node  AO) 
was  interfaced  to  the  necessary  device  driver  programs.  In 
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writing  the  code,  the  author  attempted  to  use  structured 
code  wherever  possible.  Named  common  was  used  for  passing 
most  of  the  parameters  between  subroutines.  This  allowed 
the  parameters  to  be  grouped  into  functional  groupings  and 
labeled.  Additionally,  the  RT-11  operating  system  lists  all 
named  common  blocks  on  the  Link  Map.  This  aided  in  debugging 
the  programs  and  should  aid  in  system  maintenance.  All  of 
the  subroutines  pass  control  heirarchically .  No  direct  calls 
are  allowed  between  lower  level  modules.  This  eliminated 
confusion  about  control  paths. 

Method  of  Implementation 

The  language  Fortran  IV  was  used  throughout  the  system 
design  at  the  request  of  the  user.  The  use  of  this  higher 
order  language  will  enable  the  user  to  mo~e  easily  maintain 
the  system.  This  implementation  required  a  lot  of  memory 
space  and,  therefore,  an  overlayed  program  structure  was 
required  (Ref  20  and  21  describe  the  use  of  overlays  in 
RT11  Fortran  programming).  A  diagram  of  the  overlay  struc¬ 
ture  for  AHEEDAS  is  shown  in  Figure  14. 

To  overlay  a  program  the  programmer  must  divide  his 
program  into  several  segments  which  do  not  have  to  be  resi¬ 
dent  in  memory  simultaneously.  A  control  or  root  segment 
must  contain  the  main  program,  system  library  routines  and 
any  other  program  segments  which  must  be  present  in  memory  at 
all  times.  The  remainder  of  the  program  is  divided  into  which 
need  not  be  co-resident  in  core  memory.  The  operating  system 
swaps  these  segments  in  and  out  of  memory  from  the  desk 
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Figure  14.  Overlayed  Program  Structure 


from  the  disk  storage  unit  as  they  are  needed.  Care  must 
be  taken  to  divide  the  program  segments  so  that  the  segments 
are  swapped  as  infrequently  as  possible.  Otherwise,  system 
performance  will  be  seriously  degraded  by  the  large  amount 
of  system  time  spent  swapping  the  overlays  in  and  out  of 
memory.  This  structure  is  very  important.  AO,  any  driver 
routines  utilizing  interrupts  and  the  system  library  must 
be  in  the  root  segment.  The  division  of  the  three  segments 
of  the  overlay  region  is  optimum  for  minimizing  the  overlay 
time.  Any  other  structure  resulted  in  an  unacceptably  high 
amount  of  time  spent  shifting  the  overlay  segments  in  and 
out  of  memory. 
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V.  System  Testing  and  Validation 


Any  large  system,  such  as  AHEEDAS ,  must  be  tested 
in  stages.  The  first  stage  was  incremental  testing  to 
ensure  that  all  levels  of  AHEEDAS  would  function.  Next, 
the  basic  system  was  validated.  The  object  of  validation 
was  to  show  that,  if  validation  data  were  normally  entered, 
AHEEDAS  would  produce  the  correct  outputs.  Then  comes 
hardware  testing  in  which  all  of  the  device  drivers  were 
functionally  checked.  Last,  final  validation  was  performed. 
To  accomplish  this,  the  entire  AHEEDAS  was  integrated. 

The  system  was  then  used  to  run  experiments  of  each  type 
(see  Chapter  II  for  types).  In  this  chapter,  these  stages 
of  testing  and  validating  the  AHEEDAS  will  be  discussed. 

Incremental  Testing 

As  the  AHEEDAS  was  written,  each  module  and  submodule 
was  tested  individually.  All  modules  were  thus  functionally 
tested  prior  to  being  integrated  into  the  system.  AHEEDAS 
was  written  and  tested  from  the  top  down.  This  required  AO 
to  be  functionally  tested  with  substitute  submodules  first. 
Then,  the  next  level  of  modules  was  written  and  functionally 
tested  with  substitute  modules  for  the  third  level.  Next, 
each  major  module  (examples:  A1 ,  A2 ,  ...)  was  tested  in  its 
final  form  with  all  submodules,  except  the  device  drivers, 
included.  Finally,  all  of  the  system  modules  were  combined 
with  small  printing  programs  substituting  for  the  actual 
equipment  driver  programs  and  the  entire  system  was  func¬ 
tionally  tested.  During  functional  testing,  the  primary 
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concern  was  to  see  that  each  activity  executed  as  planned 
in  the  design  and  met  the  system  requirements  (reference 

i 

Chapter  III).  Towards  this  end,  extra  output  statements 
were  used  in  the  code  to  ensure  that  the  modules  were  exe- 
;  cuting  in  the  proper  order  and  passing  the  proper  parameters 

to  each  other.  Functional  testing  alone,  however,  is  not 
sufficient  to  validate  the  system  operation. 


Validation 

To  validate  the  system,  it  had  to  be  confirmed  that  for 
all  normal  data  inputs,  the  system  produced  correct  results. 
To  assure  that  the  AHEEDAS  was  a  valid  system,  the  small 
substitute  equipment  drivers  were  again  used  in  the  system. 
These  drivers  allowed  the  operator  to  manually  input  the 
required  data  to  the  system.  Past  manual  runs  of  the 
experiment  were  used  to  provide  valid  raw  data  inputs.  This 
raw  data  had  been  reduced  on  the  CDC  6600  computer  and  this 
output  was  used  for  comparison.  The  experimental  raw  data 
were  entered  through  the  substitute  driver  programs.  The 
reduced  data  output  was  then  compared  with  that  from  these 
past  manual  runs.  (Since  this  was  an  algebraic  validation, 
precise  agreement  was  necessary.  Because  the  degree  of 
accuracy  used  was  the  same,  there  was  no  problem  with  the 
CDC  6600 's  greater  accuracy  capability.)  Any  discrepancies 
were  traced  and  the  problems  corrected.  The  process  was 
repeated  until  the  data  outputs  of  AHEEDAS  agreed  with  the 
manual  data  outputs.  Runs  of  all  three  experiment  types 
were  used:  van  der  Pauw  sample  --  all  sample  configurations 
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used;  van  der  Pauw  sample  --  abbreviated  sample  configu¬ 
rations  (reference  Chapter  II,  Original  Environment);  and 
Hall  bar  sample.  The  AHEEDAS  provided  valid  outputs  for 
all  three  types.  The  next  step  in  the  testing  was  then 
to  connect  the  system  to  the  actual  hardware. 

Hardware  Testing 

Before  final  implementation  of  the  AHEEDAS,  it  was 
necessary  to  validate  the  interface  of  the  hardware  to  the 
device  driver  programs.  This  was  done  by  using  a  substi¬ 
tute  test  program  which  merely  called  the  instrumentation 

to  perform  all  of  the  functions  that  the  AHEEDAS  would 

¥ 

require.  Major  problems  were  discovered  in  the  IEEE  488 
Standard  Bus  (National  Instruments  GPIB-11).  National 
Instruments  replaced  both  the  interface  card  and  the  soft¬ 
ware  drivers  for  this  interface.  This  solved  the  problems 
with  the  bus.  However,  the  interface  has  not  been  exten¬ 
sively  used  in  the  field  and  the  documentation  on  its  use 
is  not  complete.  Future  expansion  of  the  system  could 
uncover  more  problems.  The  magnet  driver  was  an  in-house 
produced  interface.  Numerous  trials  were  necessary  to  get 
this  interface  to  work  properly.  The  Walker  gaussmeter  did 
not  work  properly.  It  functions  erratically  and  should  not 
be  used  in  AHEEDAS  until  it  is  repaired.  The  AHEEDAS  was 
designed  to  work  with  or  without  a  functioning  gaussmeter. 
The  other  interfaces  worked  properly  with  only  minor  prob¬ 
lems  which  are  corrected.  When  the  proper  functioning  of 
these  interfaces  was  confirmed,  all  that  was  left  was  to 
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test  the  full  AHEEDAS  in  its  final  configuration. 

Final  Validation 

Final  validation  was  relatively  simple.  The  LSI -11 
and  all  associated  hardware  systems  were  connected  into 
the  final  experimental  configuration  and  experiments  of 
each  type  were  run.  Data  was  then  checked  for  reasonable¬ 
ness,  consistency  and,  as  far  as  possible,  for  accuracy. 
This  was  done  by  comparison  with  past  manual  experiments 
on  similar  samples.  No  point  by  point  comparison  was  made. 
It  was  shown  in  Validation  that  for  valid  input,  AHEEDAS 
produced  valid  output.  The  instrumentation  used  had  been 
checked  out  in  use  for  months.  Therefore,  it  was  assumed 
that  the  data  input  from  the  instruments  was  valid.  The 
primary  concern  was  the  ability  of  the  user  to  perform  a 
complete  experiment  with  consistent  results.  The  users 
performed  most  of  these  tests  under  the  guidance  of  the 
author.  Thus,  user  familiarization  was  accomplished  con¬ 
currently.  No  major  problems  were  uncovered  in  this  stage 
of  testing.  Minor  corrections  were  all  that  were  necessary 
to  bring  AHEEDAS  to  full  functional  status. 

Summary 

In  this  chapter,  the  process  of  validating  the  AHEEDAS 
was  discussed.  The  AHEEDAS  met  all  of  the  user's  specifi¬ 
cations  for  the  first  stage  system.  In  the  next  chapter, 
the  conclusions  of  this  investigation  will  be  discussed  and 
recommendations  for  further  study  presented. 
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VI.  Recommendations  and  Conclusions 


During  the  course  of  this  investigation,  many  problems 
were  uncovered.  New  questions  were  raised.  Not  all  of 
them  were  within  the  scope  of  this  study  to  investigate. 
Recommendations  for  further  investigation  will  be  presented 
in  this  chapter.  Then,  the  conclusions  drawn  from  this  study 
will  be  presented. 

Recommendations 

The  design  and  implementation  of  the  automated  tempera¬ 
ture  control  function  of  AHEEDAS  remains  to  be  accomplished. 
The  temperature  is  currently  controlled  by  an  analog,  closed- 
loop  controller  which  supplies  current  to  a  heater  element 
in  the  sample  dewar.  It  gets  feedback  from  its  own  uncali¬ 
brated  thermometer  elements  and  holds  the  voltage  read  from 
this  thermometer  constant  by  varying  the  heater  current. 

The  tolerance  of  this  controller  is  approximately  0.01 
degrees  Kelvin.  The  user  must  use  this  controller  and  a 
separate  voltmeter  which  reads  a  calibrated  silicon  ther¬ 
mometer  to  set  a  specific  temperature.  Two  approaches 
appear  to  be  the  most  promising.  The  first  approach  would 
be  to  use  an  existing  computer  controlled  power  supply  to 
do  the  job.  This  would  require  the  use  of  the  same  LSI-11 
processor  for  temperature  control  that  is  used  to  run  the 
rest  of  the  experiment.  It  is  not  clear  at  the  present  time 
whether  the  temperature  is  stable  enough  to  permit  the  use 
of  this  scheme.  The  differential  between  the  temperature 
inside  the  sample  dewar  and  the  laboratory  room  temperature 
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can  be  as  high  as  290  degrees  Kelvin  at  the  low  end  of  the 
temperature  range.  The  temperature  is  very  sensitive  to 
the  outside  environment  (for  example,  air  currents  caused 
by  opening  and  closing  doors  or  people  walking  by  the 
apparatus  affect  the  temperature) .  Since  the  activity  of 
the  analog  controller  is  transparent  to  the  user,  how 
often  the  heater  current  must  be  adjusted  to  hold  a  constant 
temperature  is  not  known.  Experiments  need  to  be  conducted 
with  a  fully  manual  controller  to  determine  the  stability 
of  the  temperature.  Another  approach  would  be  to  use 
another  processor  to  build  a  closed-loop  temperature  con¬ 
troller.  A  separate  dedicated  processor  would  be  able  to 
continuously  adjust  the  heater  settings  to  prevent  the 
temperature  from  drifting.  This  controller  would  take  the 
temperature  setting  from  the  LSI -11  and  set  the  required 
value.  This  would  free  the  LSI-11  to  do  other  processing 
as  required  until  interrupted  by  the  controller  when  the 
temperature  was  at  the  proper  steady  state  value.  This 
appears  to  be  the  most  desirable  of  the  two  options.  How¬ 
ever,  it  is  not  known  at  this  time  whether  or  not  it  is 
necessary  to  invest  the  extra  money  into  the  implementation 
of  the  second  approach.  Space  was  left  in  Module  A3  Set 
Parameters  to  implement  this  function. 

The  user  would  like  to  add  a  plotting  capability  to  the 
AHEEDAS.  He  desires  that  a  four-color  plotter  be  utilized. 
This  device  has  not  yet  been  purchased.  The  primary  device 
being  considered  was  listed  in  Chapter  II  in  the  list  of 
the  system  hardware,  A  blank  module  was  inserted  into  the 
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system  for  the  software  that  will  be  needed  for  this 
interface.  The  plotter  which  has  been  tentatively  specified, 
the  HP7221A,  will  require  a  small  driver  to  be  written  to 
control  the  system  software  that  will  be  provided  with  the 
plotter. 

AHEEDAS  is  a  large  system  and  required  the  use  of  an 
overlayed  program  structure  to  implement.  The  physical 
size  of  the  algorithm  could  be  considerably  reduced  if  some 
of  the  driver  modules  had  possibly  some  of  the  smaller 
system  modules  were  written  in  MACRO-11,  the  system  assembly 
language.  The  present  system  requires  almost  16K  words  of 
memory.  Over  4K  words  of  useable  memory  remain.  However, 
future  system  growth  could  mandate  that  some  optimization 
of  this  type  be  done.  If  such  optimization  is  done,  the 
overlayed  program  structure  discussed  in  detail  in  Chapter 
IV  should  be  used  for  all  future  expansions.  Any  other 
structure  will  result  in  a  considerable  loss  of  time  simply 
reading  the  overlay  segments  in  and  out  of  memory.  Numerous 
options  for  optimizing  program  size  are  discussed  in 
Reference  20.  These  compiler  options  can  be  used  to  reduce 
the  program  size  with  only  small  run  time  increases. 

•  Once  an  experiment  is  complete,  the  output  data  from 
AHEEDAS  still  must  be  entered  manually  into  the  CDC  175 
computer  so  that  it  may  be  analyzed  in  depth.  AFML  is 
presently  installing  a  Prime  Model  550,  medium  frame  compu¬ 
ter  which  is  linked  into  the  CDC  computer.  One  of  the 
purposes  of  this  computer  is  to  act  as  a  buffer  between  the 
AFML  minicomputer  network  and  the  CDC  computer.  The  user 


desires  to  interface  to  this  computer  via  an  acoustic 
coupler.  The  interface  package  to  support  this  function 
needs  to  be  developed  so  that  the  experimental  data  can  be 
read  directly  into  storage  files  in  the  CDC  computer.  The 
data  could  then  be  read  directly  into  the  analysis  programs. 

Conclusions 

The  AHEEDAS  implemented  is  the  first  stage  of  a  fully 
automated  system.  The  initial  design  and  implementation  of 
this  system  were  successfully  completed,  The  LSI-11  micro¬ 
computer  proved  to  be  very  satisfactory  for  the  job.  The 
initial  software  fulfilled  the  specifications  for  the  first 
stage  system  (Ref  Chapter  1) .  Time  did  not  permit  further 
investigation  into  the  later  steps  in  system  development. 
Possible  development  for  implementation  in  later  stages  of 
AHEEDAS  were  discussed  in  the  recommendations  in  this 
chapter . 
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Appendix  A 

Structured  Analysis  and  Design  Tool 

Introduction 

This  appendix  contains  a  brief  explanation  of  the 
functional  analysis  phase  of  the  Structured  Analysis  and 
Design  Tool  (SADT)  to  aid  the  reader  in  understanding  the 
design  development.  A  more  complete  discussion  can  be 
found  in  References  11  and  7.  The  method  used  here  is 
a  subset  of  the  full  tool.  The  explanation  used  below 
is  condensed  from  Reference  18. 

Structured  Analysis 

SADT  is  a  comprehensive  methodology  for  performing 
functional  analysis  and  design.  In  the  functional  analy¬ 
sis  phase,  the  emphasis  is  on  analyzing  and  documenting 
the  requirements  on  the  system.  A  set  of  diagrams  re¬ 
sults  which  are  called  activity  diagrams.  They  describe 
the  system  in  terms  of  the  activities  it  must  perform. 

The  diagrams  are  created  by  decomposing  the  system  into 
smaller  and  smaller  pieces.  The  completed  set  of  diagrams 
provide  a  model  of  the  system. 

Diagram  Syntax 

SADT  diagrams  consist  of  labelled  boxes  and  arrows  for 
expressing  the  system  activity  and  data  models.  Figure  15 
illustrates  the  basic  syntax  of  the  model.  Inside  a  box  is 
the  name  of  the  activity  model.  This  name  expresses  the 
action  taking  place. 
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CONTROL 

(data) 


INPUT 

Cdata) 


\  MECHANISM 

(processor) 

Figure  15.  Box/Arrow  Conventions 

The  boxes  of  the  parent  diagram  are  decomposed  into 
more  detailed  diagrams  called  children.  Each  diagram  is 
numbered  in  a  Dewey-decimal  manner  (Ref  11:2-3)  which 
represents  the  parent-child  relationship.  For  example, 
diagrams  31,  32,  33  and  34  would  be  children  of  diagram 
3.  Each  diagram  is  referenced  as  a  node. 

The  boxes  of  a  diagram  are  connected  by  arrows 
which  represent  the  interface  between  the  boxes.  The 
sides  of  the  box  define  the  kinds  of  arrows  which  may  en¬ 
ter  or  leave  that  side  of  the  box. 

Four  types  of  arrows  represent  the  kinds  of  interface 
As  in  Reference  11:3-6,  for  activity  diagrams  these  are: 


Input:  Data  transformed  by  the  activity  into 

the  output . 

Output:  Data  created  by  the  activity. 

Control:  Data  used  to  control  the  process  of 

converting  the  input  into  the  output. 

Mechanism:  The  processor  which  performs  the  activity. 

It  should  be  noted  that  the  "mechanism"  arrow  represents 
the  tool  necessary  to  "realize  the  box"  (Ref  11:3-4); 
since  it  is  usually  evident  from  the  title  of  the  box,  the 
mechanism  arrow  is  not  always  shown. 

The  "multiple  branch"  (EXCLUSIVE  OR)  is  used  to  indi¬ 
cate  multiple,  but  not  simultaneous,  outputs.  The  "multiple 
join"  indicates,  multiple  but  not  simultaneous,  inputs. 

Both  conventions  are  shown  in  Figure  16.  SADT  also  permits 
the  use  of  simultaneous  joining  of  signals  into  a  pipeline 
of  data. 

An  "ICOM"  code  is  used  to  connect  arrows  across  the 
parent/child  boundaries.  The  name  ICOM  is  derived  from  the 
arrow  names:  Input,  Control,  Output,  and  Mechanism.  Each 
boundary  crossing  arrow  (ones  which  do  not  have  both  ends 
connected  to  a  box  is  labeled  with  its  parent-context 
ICOM  code,  in  addition  to  its  normal  label.  This  aids  the 
reader  in  locating  the  matching  parent  arrow.  The  "ICOM" 
code  is  written  near  the  unconnected  end  of  the  arrow  and 
consists  of  the  letter  I,  C,  0,  or  M  followed  by  a  number. 
This  number  gives  the  relative  position  that  the  arrow 
enters  or  leaves  the  side  of  the  parent  box.  Numbering  is 


Two-Way  Branch  Three-Way  Join 


Figure  16.  OR  Branch  and  Join  Structure 


Figure  17.  ICOM  Numbering  Convention 
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done  from  left  to  right  and  top-to-bottom  as  illustrated  in 
Figure  17.  For  example,  "C2"  on  an  arrow  in  a  child  diagram 
indicated  the  arrow  is  the  second  control  arrow  entering  the 
parent  box. 

In  the  text  associated  with  each  diagram,  the  arrows 
are  identified  with  an  "ICOM"  code  consisting  of  a  letter 
(I,  0,  C,  or  M),  a  suffix  number,  and,  where  necessary  for 
clarity,  a  dashed  number  referring  to  the  position  of  the 
signal  in  a  pipeline  of  data.  The  code  refers  to  the  box 
within  the  diagram  and  the  suffix  number  refers  to  the  top- 
down  or  left-right  order  of  the  arrow  on  the  box.  For 
example,  "C2-6"  refers  to  the  sixth  data  item  in  a  pipeline 
of  data  which  entered  the  parent  box  at  C2. 
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Appendix  B 

Operator’s  Manual  for  AHEEDAS 


Every  attempt  has  been  made  to  make  the  AHEEDAS  simple 
to  use.  Only  a  rudimentary  knowledge  of  computer  opera¬ 
tion  is  needed  to  operate  the  system.  A  checklist  of 
instructions  for  use  of  AHEEDAS  follows. 

I.  Initialization 

A.  Turn  on  power  to  all  LSI-11  systems. 

1.  Turn  on  power  to  the  LSI -11  computer  cabinet. 

2.  Turn  RUN/HALT  switch  on  LSI-11  front  panel  to 
the  RUN  position. 

3.  Turn  ON/RTC  switch  to  the  ON  position. 

4.  Turn  ON/POWER  switch  to  the  ON  position. 

B.  Put  floppy  disks  into  the  system. 

1.  Insert  system  disk  into  Drive  0  of  the  RX01 
drive . 

2.  Insert  data  disk  into  Drive  1. 

CAUTION:  THE  DATA  DISK  MUST  HAVE  AT  LEAST  130  CONTINUOUS 
FREE  BLOCKS  BEFORE  STARTING  AHEEDAS. 

CAUTION:  IF  THE  THREE  DATA  FILES  RAWOUT.DAT,  INTRMD.DAT, 

AND  OUTPUT . DAT  ARE  PRESENT  ON  THE  DISK,  THEY  SHOULD  BE 
RENAMED  BEFORE  RUNNING  AHEEDAS  OR  THEY  WILL  BE  DESTROYED. 
RENAME  FILES  USING  THE  COMMAND  RENAM  DX1 : RAWOUT . DAT 
DX1 : Filename.  THE  DEVICE  NAME  MUST  BE  THE  SAME  FOR  BOTH 
FILE  SPECIFICATIONS. 
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C.  Boot  the  system. 


1.  Type  DX<cr>  on  the  terminal. 

2.  When  the  system  startup  messages  finish  print¬ 
ing,  type:  DATE  day-month-year  (example: 

DATE  10-OCT-79)  to  enter  the  current  date. 

D.  Run  AHEEDAS. 


1.  Type:  RUN  DX) :AHEDAS<cr>  to  start  the  system 
running . 

2.  The  system  will  respond: 

DfATAFILE ,T (EMCALFILE , I (NITIALI ZE ,Q (UIT 
Enter  the  letter  corresponding  to  your  choice. 

a.  For  choice  D(ATAFILE  and  choice  T(EMCALFILE 
respond  to  all  system  prompts  to  create  the 
desired  files.  If  disk  space  permits  all 
such  input  files  should  be  stored  on  the 
system  disk  in  Drive  0  by  entering  the  file 
specification : 

DXO : Filename 

when  prompted  for  the  filename. 

b.  Choice  INITIALIZE  should  not  be  selected 
until  after  equipment  turn  on  is  complete. 

E.  Equipment  Turn  On  and  Initialization 

1.  Mount  the  sample  and  begin  cool  down  procedure. 

2.  Turn  on  all  necessary  instruments. 

a.  HP3445A  --  Digital  Voltmeter,  ensure  that 
the  proper  input  selected,  front  or  back 
terminals . 

b.  HP3495A  --  Scanner. 
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c.  Keithley  616  Electrometer  and  6162  Isolated 
Output  Control  --  Set  sensitivity  AUTO. 
FAST/NORMAL=FAST ,  RANGE==10**-11  Amperes. 

d.  Walker  Gaussmeter  --  set  to  10,000  Gauss 
scale,  ensure  probe  is  installed  to  read 
proper  field  polarity. 

e.  Magnet  and  controller  --  AUTO/MANUAL  switch 
to  AUTO,  Field  Selector=0. 

f.  UDRI  Test  Controller  --  Set  to  AUTO. 

g.  Heater  power  supply  and  Artronix  Controller. 

h.  Power  supply  to  silicon  thermometer. 

i.  Any  other  required  equipment  needed  for  this 
experiment. 

3.  If  any  of  the  automatic  instrumentation  is  inop¬ 
erative,  the  experiment  can  still  be  performed 
manually  if  a  substitute  piece  of  equipment  is 
available.  (Note:  No  substitute  is  needed  for 
the  gaussmeter  as  it  is  redundant.)  The  user 
must  simply  enter  which  piece  of  apparatus  is 
inoperative  and  stand  by  to  enter  the  readings 
manually. 

Initialize  Experiment 

1.  To  begin  initializing  parameters  for  an 
experiment,  respond  to  the  prompt  in  D.2 
above  with  choice  3.  Respond  to  all 
system  prompts  for  information  and  enter 
the  appropriate  entry  for  any  inoperative 
system  components  when  prompted.  When 


finished,  the  system  will  prompt: 

INITIALIZATION  IS  COMPLETE 
ENTER  A  1  WHEN  READY  TO  START  EXPERIMENT 
Before  responding,  recheck  all  experimental 
systems  to  assure  that  they  are  all  turned 
on,  warmed  up,  initialized  and  at  steady 
state  values.  When  finished,  enter  a  l<cr> 
to  start  the  experiment. 

II.  Conduct  Experiment 

A.  The  AHEEDAS  will  execute  the  experiment  using  the 
the  information  you  have  given  it.  Each  time  that 
it  needs  a  reading  or  an  equipment  setting  done 
manually,  it  will  ask  for  it  by  a  prompt  on  the 
terminal.  Make  sure  all  data  is  entered  carefully 
just  as  the  system  requests  so  that  accuracy  will 
be  maintained. 

CAUTION:  IMPROPER  ENTRY  OF  DATA  CAN  RESULT  IN  PROGRAM  ABORT. 

TO  RESTART,  RE-EDIT  DESIRED  DATA  POINTS  FILE  TO  BEGIN  AT 

FAILURE  POINT,  REINITIALIZE  AND  BEGIN  AGAIN.  BE  SURE  TO 

RENAME  THE  DATA  FILES  FROM  THE  FIRST  ABORTED  RUN  OR  THE 

SECOND  RUN  WILL  DESTROY  THEM. 

III.  Experiment  Completion 

A.  AHEEDAS  will  output  the  data  files  and  stop  execu¬ 
tion  when  finished. 

B.  Accomplish  normal  shutdown  of  all  equipment  when 
finished. 


C.  Shutdown  LSI -11  computer. 


1.  Remove  both  floppy  disk  and  store  safely. 

2.  Move  RUN/HALT  switch  to  HALT. 

3.  Move  ON/RTC  switch  to  RTC. 

4.  Move  ON/POWER  switch  to  the  down  position 
(Note:  All  three  switches  should  now  be  in 
the  down  position.) 

5.  Turn  off  power  to  the  computer  cabinet. 

IV.  To  Interrupt  Experiment 

A.  Turn  6162  Isolated  Output  off  --  experiment  will 
abort . 

CAUTION:  DO  NOT  ABORT  EXPERIMENT  USING  CONTROL  C  (~C). 

THE  DISK  FILES  WILL  NOT  BE  SAVED.  PROCEDURE  IN  IV. A 
WILL  SAVE  OUTPUT  FILES. 

B.  Print  output  files,  INTRMD.DAT ,  OUTPUT.DAT, 
and/or  RAWOUT.DAT  with  utility  program  LISTER. SAV. 
(If  Lister  is  used  with  a  parallel  printer,  you 
must  enter  ASSIGN  LP :  7:  before  running  program.) 

C.  Execute  normal  shutdown  (III). 


( 
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Appendix  C 


AHEEDAS  Program 


This  appendix  contains  the  computer  listings  of  the 
computer  code  used  to  implement  the  AHEEDAS.  These  modules 
correspond  to  those  shown  in  Figures  12  and  13  in  Chapter  IV. 
Where  needed  for  clarity,  each  module  is  preceded  by  a  flow 
chart  which  outlines  its  functions.  Modules  AO  -  A5  corres¬ 
pond  to  the  Nodes  AO  -  A5  described  in  Chapter  IV.  Also 
shown  are  the  device  driver  programs.  The  software  modules 
IBUP1  and  IBVDP1  (see  Figure  13)  are  not  shown.  These 
programs  were  purchased  from  National  Instruments  (Ref  1  and 
2).  Several  extensions  to  the  RP-11  system  library  were  also 
used.  These  were  written  by  Mr.  Frank  E.  Beital,  University 
of  Dayton  Research  Institute  and  are  included  in  the  AHEEDAS 
archives  which  are  kept  by  the  Air  Force  Materials  Labora¬ 
tory.  Complete  system  listings  and  linking  instructions  can 
be  obtained  from  Dr.  Patrick  M.  Hemenger,  AFML/LPO, 
Wright-Patterson  AFB,  Ohio  45433. 
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Figure  18,  Flow  Chart  for  Module  AO 


0001 


PROGRAM  A8 

ccccccccccccccccccccccccccccccccccccccccrcccccccccccacccccccccccccc 
c 

C  NODULE  m - CONDUCT  EXPERIMENT  AND  PROCESS  DATA 

c 

C  THIS  MODULE  IS  THE  TOP  LEUEL  EXECUTIUE  FOR  THE  SYSTEM.  ITS  FUNCTION  IS 
C  COORDINATE  THE  FUNCTIONS  OF  THE  LGUER  LEUEL  MODULES  AND  TO 
C  PASS  THE  DATA  BETWEEN  THEM.  ALL  OF  THE  SUBROUTINE  CALLS  THAT  PASS 
C  FROM  SINGLE  DIGIT  MODULES  TO  OTHER  SINGLE  DIGIT  MODULES 
C  HILL  PASS  THROUGH  THIS  COORDINATE  MODULE. 

C  I 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 

c 

C  HEADER 

0002  BYTE  TITLE<20)  jTGDRVO) 

0003  REAL  ITEMPC1O0) 

0004  INTEGER  TVPTEM 

C  DATAIN 

0005  REAL  TEMPC100) jFIELD.AI,LT(2.6) 

0006  INTEGER  NTENPT , ETVPEj NAUOLT , NDATPT 

C  TCALIB 

0007  BYTE  THRMID<20) 

0008  INTEGER  HTEMP 

0009  REAL  TEMCfiL<2, 100) 

C  SAMPLE 

0010  BYTE  SAMID<20) 

0011  INTEGER  SAMTYP 

0012  REAL  SAMT.SAMtLSRNL 

C  PLTOUT 

0013  BYTE  P0PTS<6,11> 

0014  INTEGER  PLQTAB(4),PL0TQRC4),PLQT,NP 

C  FILE IN 

0015  BYTE  TNAMEC20  ) .  DPNAMEC20  > 

C  EQPOUT 

0016  BYTE  EQUIPFC10.8) 

0017  INTEGER  IEIOF. E0FLAG<7) 

C  CONTRL 

0018  INTEGER  ABORT 

C 

C  RELTIM 

0019  INTEGER  RTDATA 

C 
C 

c 

c 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 

C 

C  CONSIG 

0020  INTEGER  SDP,  E\PC, FSCOM, SCSCOM, ULTCOM 

C 

C  A2COM 

0021  INTEGER  NTEM> SCSET . SCOUNT . UCOUNT , RUN 
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0023 


REAL  TEMSET ,  FLDSET ,  ULTSET ,  X0 
C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
C  R3C0M 

INTEGER  FDELAV  ,  SAM,  FLDOK ,  TEMGK,  ULTOK,  SAMOK , 

2UDELAY, SDELA7, TDELA7 , DELAY 
REAL  FLD,  'JLT ,  TEM 
C  DHHCQM 

REAL  CRNTRD 
C  GAUSSM 

REAL  FLDRD 
C  DUMCOM 

INTEGER  FUNC 
REAL  TEMRDiULTRD 
C  ULTPUR 

REAL  ULTAGE 
C  T ST COM 

INTEKR  SIGN 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A4 
C  RAWDAT 

REAL  TEMDAT <20) ,  ULTDRT <20),  SUDRTRC20) ,  FLDATAC20) ,  IDATAC20) 
INTEGER  SCDATA<20) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A5 
C  DATOUT 

REAL  RHQ,P,MU,RH,F 
REAL  TEMOUT <20> ,  fl'JGTEM,  DELTA,  IATEM 
REAL  RC4),R1R2,R3R4,R?,R8, UHALL , RMAG 
REAL  R 1 , R2 , R1 2, R5 , R6 , DELT AR, DELR5, DELR6 
REAL  E,LN2,AFIELD,PI 
C  PLOTER 

REAL  PLOTS (4, 2) 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
C 

COMMON  /HEADER/TITLE, ITEMP, TVPTEM, TODAY 
COMMON  /DATAI N/NTEMPT ,  TEMP, ETVPE, F IELD, 

2NAUQLT ,  AULT ,  NDATPT 
COMMON  /TCAL I B/THRM I D ,  NTEMP ,  TEMCAL 
COMMON  /SAMPLE/SAM ID,  SAMT YP ,  SAMT ,  SANW, SAML 
COMMON  /PLTOUT/PLOT ,  POPTS ,  NP ,  PLOTAB ,  PLOTClR 
COMMON  /F ILE  IN/TNRME ,  DPNfiME 
COMMON  /EQPOUT/EOFLAG,EGlLHPF,  IEIOF 
COMMON  /RELTIH/RTDATA 
COMMON  /CONTRL/ABQRT 

C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

COMMON  /CONSIG/SDP,  EXPC ,  FSCOM,  SCSCOM,  ULTCOM 
COMMON  /A2C0M/TEMSET ,  FLDSET ,  ULTSET,  X0,  NTEM,  SCSET ,  SCOUNT , 
2UCOUNT , RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLOW 

COMMON  /A3C0M/FDELAV, UDELAV , SDELAY, TDELAY, DELAY, FLD, ULT, 
2TEM,  FLDOK,  TEMOK,  ULTOK ,  SAMOK,  SAM 
COMMON  /DNMCGH/CRNTRD 
COMMON  /GAUSSM/FLDRD 
COMMON  /DUMCOM/FUNC ,  TEMRD ,  ULTRD 
COMMON  /ULTPUR/ULTAGE 
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C  THE  COMMON  BLOCKS  FOR  04  FOLLOW 

0055  COMMON  /RAWDAT /TEMDAT , ULTDAT , SUDATA, FLDATA, IDATA. SCDOTO 

C  THE  COMMON  BLOCKS  FOLLOW  FOR  05 

0056  COMMON  /DOTOUT /RHO  , P , MU , RH, F ,  TEMOUT  ,  AUGTEM, DELTA  ,  IATEM,  R, 

2RlR2i  R3R4,  R7,  R3,  'JHALL,  RMAG,  R1  ,  R2,  R12,  R5,  R6,  DELTRR<DELR5<DELR6< 
3E,LN2,  AFIELD,  PI 

0057  COMMON  /PLOTER 'PLOTS 

C  INITIALIZE  ALL  REQUIRED  CONTROL  SIGNALS  AND  DATA  SETTINGS 
C 

0058  DATTA  TEMSET/0.0/ 

0059  DATA  NTEM, SCSET , FLDSET , ULTSET , SCOUNT , UCOUNT/ 1,0, 0.0, 0.0, 0,0/ 

0060  DATA  FLD,'JLT,SAM,TEM,RUN/0.0, 0.0,0, 0.0,0/ 

C  NOW  GO  TO  THE  INITIALIZATION  MODULE 
C 

0061  CALL  01 

C 
C 

C  CHECK  IF  ABORT  FLAG  IS  SET 
C 

0062  IF<AB0RT.EQ.1)G0  TO  900 

C 

C  NOW  BEGIN  THE  EXPERIMENT - CALL  DETERMINE  SETTINGS 

C 

0064  20  CONTINUE 
0065  CALL  A2 

C 

C  TEST  TO  SEE  IF  START  DATA  PROCESSING  IS  TRUE 
C 

0066  IFCSDP.EQ.DGO  TO  300 

C 

c 

C  TEST  TO  SEE  IF  EXPERIMENT  IS  COMPLETE 
C 

0068  IF<EXPC.EQ.1)G0  TO  300 

C 

C  COLL  SET  PARAMETERS 
C 

0070  CALL  A3 

C 

C  START  DATA  ACQUISITION 
C 

0071  CALL  04 

C 

C  GO  BACK  TO  02 
C 

0072  GO  TO  20 

C 

C  CALL  REDUCE  DATA 
0073  800  CONTINUE 
0074  CALL  05 

C  RESET  ALL  CONTROL  SIGNALS  AND  SETTINGS  FOR  THE  NEXT  RUN 
0075  ULTSET=0.0 

0076  FLDSET=0.0 
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0077 

SCSET=0 

0078 

SDP=0 

0079 

RUN=0 

0088 

ULTC0M=8 

0081 

SCSCOM=0 

6082 

UCOUNT=0 

0063 

C 

IF  CETVPE. EQ.  1 ) SCQUHT =0 

C 

IF  EXPERIMENT  IS  COMPLETE  EXIT 

0085 

IFCEXPC.EO.DGO  TO  900 

0087 

GO  TO  20 

0088 

900  CONTINUE 

0889 

STOP 

0090 

END 
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0001 


0002 

0003 

0004 

0005 

0006 


SUBROUTINE  A1 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C  MODULE  fll— INITIALIZE  PARAMETERS 

C  fll - CONTROLS  MODULES  A11-A15 

C 

C  THIS  MODULE  CONTROLS  THE  INITIALIZATION  MODULE. 

C  A  USER  RUNS  THE  PROGRAM  AND  IS  REQUESTED  BV  All  TO  SUPPLV  A 
C  NUMBER  WHICH  DIRECTS  THE  PROGRAM  TO  EXECUTE  ONE  OF  FOUR 


C  OPTIONS: 

c 

C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 
c 
c 
c 
c 
c 


1.  CREATE  A  DESIRED  DATA  POINTS  FILE. 

2.  CREATE  A  THERMOMETER  CALIBRATION  FILE. 

3.  INITIALIZE  PARAMETERS  FOR  AH  EXPERIMENT. 

4.  STOP  EXECUTION  OF  THE  PROGRAM. 

AFTER  CREATION  OF  EITHER  A  DESIRED  DATA  POINTS  FILE  OR  A  THEMQMETER 
CALIBRATION  FILE  THE  PROGRAM  RETURNS  TO  THE  USER  AND  REQUESTS  HIS 
NEXT  OPTION.  AT  THIS  TIME  HE  MAV  CREATE  ANOTHER  FILE 
OR  BEGIN  INITIALIZATION  OF  PARAMETERS  FOR  THE  EXPERIMENT  OR  STOP. 

IF  HE  STOPS  HIS  FILES  WILL  REMAIN  ON  THE  DISK  HE  SPECIFIED  FOR  USE 
AT  A  FUTURE  TIME.  IF  HE  ELECTS  TO  INITIALIZE  THE  EXPERIMENTAL 
PARAMETERS  THEN  MODULES  A14  AND  A15  EXECUTE.  UPON  COMPLETION 
THE  PROGRAM  HALTS  UNTIL  THE  USER  GIUES  THE  COMMAND  TO  BEGIN  THE 
EXPERIMENT  EXECUTION.  PRIOR  TO  ISSUING  THIS  SIGNAL  THE  USER 
SHOULD  ENSURE  THAT  ALL  OF  THE  EQUIPMENT  IS  TURNED  ON  AND 
READV  TO  GO.  IF  HOT  INFORMED  UIA  THE  EQUIPMENT  OUT  FLAGS  THE 
COMPUTER  CANNOT  TELL  WHETHER  THE  INSTRUMENTS  ARE  ON  LINE  OR 
NOT.  ONCE  TOLD  TO  PROCEED  WITH  THE  EXPERIMENT 
fll  WILL  PASS  CONTROL  TO  A2 — DETERMINE  DATA  PARAMETERS  UIA  THE 
COMMAND  MODULE  AO.  EXECUTION  WILL  THEN  PROCEED  TO  EXPERIMENT 
COMPLETION 

AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT ,  JR. , USAF 


THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
HEADER 


BVTE  TITLE  (20),  TOD  A  VO) 

REAL  ITEMP(IOQ) 

INTEGER  TVPTEM 
C  DATAIN 

REAL  TEMP(100),FIELD, AULT<2,6) 
INTEGER  NTEMPT , ETVPE, NAUOLT , NDATPT 

C  TCAL2B 
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000? 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

001? 

0018 


0019 


0028 

0021 


0022 

0023 

0024 


0025 

0026 

002? 

0028 

0029 

0030 

0031 

0032 


BYTE  THRMIDC20) 

INTEGER  HTEMP 
REAL  TEMCAL<2,100) 

C  SAMPLE 

BYTE  SAMID<20) 

INTEGER  SflMTVP 
REAL  SAMT  ,  SRMU  ,  SAML 
C  PLTOUT 

BYTE  P0PTSC6,  11) 

INTEGER  PLOTAB  <  4  ) ,  PLOTORC  4 ) ,  PLOT  ,  NP 
C  F1LEIH 

BYTE  TNRME< 20 ) , DPNAME<  20 ) 

C  EQP0UT 

BYTE  EQUIPFa0,3:> 

INTEGER  IEIOF,EGFLAG(?> 

C  CONTRL 

INTEGER  ABORT 
C 

C  RELTIM 

INTEGER  RTDRTR 
C 

c 

c 

C  R11COM 

INTEGER  I OPT 

INTEGER  ERRET , MONTH , DRY , YEAR 
C  THESE  ARE  THE  COMMON  BLOCHS  FROM  MODULE  fll 
C 

COMMON  /HERDER/ T ITLE , ITEMP , TVPTEM, TODAY 
COMMON  /DATAIN/NTEMPT, TENP,ETVPE,FIELD, 
2NAU0LT ,  AULT  .•  NDATPT 
COMMON  /TCRLIB/THRMID, NTEMP, TEMCftL 
CC 

c 

COMMON  /SAMPLE/SAM I D ,  SANT  VP ,  SAMT ,  SAMW ,  SAML 
COMMON  /PLTOUT /PLOT ,  PORTS ,  NF' ,  F'LOTAB,  PLOTOR 


C 


r 


COMMON  /F ILE I N/TNAME, DPNAME 
COMMON  /EQPOUT/EOFLAG, EQUIPF , IEIOF 
COMMON  /RELT IM/RTDATA 
COMMON  /CONTRL/ABORT 
COMMON  /AUCOM/IOPT 


DATA  EQUIPF/'D^-'M'^M","  ", 

2  'D', 'U','M', 


"M", "G" , "N" , "T" , '  ','C','N', 

0*0>0>0>0.>0j0;Q>0>  0/ 


X  X 
X  X 
X  X 
X  X 

' L ' 
'L' 
'R' 


X  X 


'R' 
' R y 


X  X 


0033 

0034 

0036 

CALL  IDATE ( MONTH , DAY , YEAR ) 

IF  (MONTH. EQ.0)GO  TO  310 

CALL  DATEC TODAY) 

'rrrrrrrrrrrrri'rrrrrrrrrrprrrr'rrrrrrrrrrrrrrrrrf'tTrrrrrrrrrrrrrrrT 

C 

0037 

10 

CONTINUE 

0038 

CALL  All 

0039 

IFCIOPT.NE. 1>G0  TO  20 

0041 

CALL  A12 

0042 

GO  TO  10 

0043 

20 

CONTINUE 

0044 

IF(I0PT.NE.2)G0  TO  30 

0046 

CALL  A13 

0047 

GO  TO  10 

0048 

30 

CONTINUE 

0049 

IF(IGPT.NE.3)GQ  TO  40 

0051 

CALL  A14 

0052 

CALL  A15 

0053 

GO  TO  50 

0054 

40 

CONTINUE 

0055 

IF(I0PT.NE.4)  GO  TO  800 

0057 

GO  TO  900 

0058 

50 

CONTINUE 

0059 

LIRITE(7,  1010) 

0066 

1010 

FORMAT (  /'  INITIALIZATION  IS  COMPLETE'/ 

2  '  BITER  A  1  WHEN  READY  TO  START  EXPERIMENT') 

0061 

READ<5,+)  IGO 

0062 

GO  TO  910 

C  ERROR  MESSAGES 

0063 

800 

CONTINUE 

0064 

WRITE<7»3000) 

0065 

8800 

FORMAT (  /,'  ILLEGAL  ENTRY,  TRY  AGAIN') 

0066 

r* 

GO  TO  10 

C  ERROR  MESSAGE  FOR  NO  SYSTEM  DATE  SET 

0067 

810 

CONTINUE 

0068 

URITE(7,3O10) 

0069 

8010 

FORMAT (  /,'  YOU  DID  NOT  SET  THE  SYSTEM  DATE.'/ 

2  '  THE  PROGRAM  MILL  ABORT.'/ 

3  '  SET  THE  DATE  AND  RESTART.') 

0070 

GO  TO  900 

0071 

900 

CONTINUE 

c 

C  SET  THE  ABORT  FLAG  TO  END  THE  PROGRAM 


C 

0072 

ABORT=l 

0073  910 

CONTINUE 

0074 

RETURN 

0075 

END 
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0001 


SUBROUTINE  fill 


C  MODULE  fill - SELECT  FUNCTION 

C 

C  THIS  MODULE  QUERIES  THE  USER  FOR  HIS  CHOICE  OF  FUNCTIONS.  THE 
C  USER  CflN  EXECUTE  ONE  OF  THE  FOLLOWING  FOUR  OPTIONS: 

C 

C  1.  CREATE  A  DESIRED  DATA  POINTS  FILE. 

C 

C  2.  CREATE  fi  THERMOMETER  CALIBRATION  FILE. 

C 

C  3.  INITIALIZE  PARAMETERS  FOR  AN  EXPERIMENT. 

C 

C  4.  STOP  EXECUTION  OF  THE  PROGRAM  AND  EXIT. 

C 

C  THIS  CHOICE  IS  RETURNED  TO  A1  WHICH  EXECUTES  IT. 


AUTHOR:  CAPTAIN  EDGAR  A  UERCHGT,JR.,  USAF 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  DATA  SPECIFICATIONS  FOR  All 
BVTE  CMND 
INTEGER  I OPT 
COMMON  /AUCGM/  IOPT 
C 

C  ASK  FOR  SELECTION  CHOICE 
10  CONTINUE 

WRITE1'?;  1600) 

1000  FORMATS, '  D<ATRFILE;T(EMCALFILE; ICNITIALIZE/QCUIT' j 
READ (5; 20O0; ERR=3O0 )  CMND 
2000  FORMAT  UR  1) 

IF  <  CMND.  EG.  'D'HOPT3! 

IF(CMND.EG. 'T' ) I0PT=2 
IF<CMND.EQ.'I')10PT*3 
IFCCMND.EG.  'Q')I0PT=4 
GO  TO  90O 
800  CONTINUE 

WRITE(7;8G00) 

8000  FORMAT <'  ILLEGAL  ENTRV' ) 

GO  TO  10 
900  CONTINUE 
RETURN 


DECLARE 

VARIABLE 


Figure  21.  Flow  Chart  for  Module  A12 
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0001 


SUBROUTINE  R12 

THIS  PROGRAM  IS  TO  CREATE  THE  DESIRED  INPUT  DATA  FILE 


MODULE  A12— CREATE  DESIRED  DATA  POINTS  FILES 


THIS  MODULE  IS  AN  INTERACTIVE  ROUTINE  WHICH  GUIDES  THE  USER 
TO  CREATE  A  FILE  ClN  THE  DISK  TO  CONTAIN  THE  DESIRED  DATA 
PARAMETERS  FOR  AN  EXPERIMENTAL  RUN.  THE  USER  MUST  FIRST 
SUPPLY  A  FILENAME  TO  USE  ON  THE  APPROPRIATE  DISK.  SINCE  THESE 
FILES  CAN  BE  RETAINED  FOR  REUSE  FOR  AN  EXTENDED  PERIOD  OF  TIME, 

DX0:  IS  THE  PREFERRED  DISK  IF  THERE  IS  STORAGE  SPACE.  OTHERWISE 
DX1S  SHOULD  BE  USED.  THE  FORMAT  TO  BE  ENTERED  IS, 

DX1 s  VDPDAT . ONE. 

ANY  APPROPRIATE  NAME  IN  THIS  FORMAT  CAN  BE  USED.  THE  PROGRAM 
THEN  REQUESTS  THE  USER  TO  ENTER  A  ONE  LINECSO  CHARACTER)  EXPERIMENT 
TITLE.  THE  EXPERIMENT OR  IS  THEN  ASKED  TO  SPECIFY  WHETHER  HE 
WISHES  TO  USE  TEMPERATURE  POINTS  OR  INVERSE  TEMPERATURE  POINTS. 

FOLLOWING  THIS  THE  NUMBER  OF  DESIRED  TEMPERATURE  DATA  POINTS 
IS  REQUESTED.  THE  DATA  POINTS  ARE  ENTERED  NEXT.  THEY  CAN  BE 
ENTERED  IN  ONE  OR  MORE  LINES  BUT  EACH  ENTRY  SHOULD  BE  FOLLOWED 
BY  A  COMMA  EXCEPT  THE  LAST. 

UP  TO  10O  POINTS  CAN  BE  SPECIFIED. 

THE  EXPERIMENT  TYPE  IS  REQUESTED  NEXT.  THIS  PARAMETER  SPECIFIES 
WHAT  SAMPLE  CONFIGURATIONS  UILL  BE  USED: 

TYPE  "l"  DOES  ALL  OF  THE  VAN  DER  PAUW  SAMPLE  POSITIONS 
AT  EACH  TEMPERATURES POSIT IONS : 1,2, 3, 4, 5, 6). 

TYPE  ”2"  DOES  SAMPLE  POSIT 10NSC1, 2,5) 

AT  THE  ODD  TEMPERATURE  POINTS  AND  THE  REMAINING 
SAMPLE  P0STI0NS<3,4,6)  AT  THE 
EVEN  TEMPERATURES. 

TYPE  "Z"  DOES  THE  EXPERIMENT  WITH  THE  HALL  BAR  SAMPLE. 

NEXT,  TTC  APPLIED  VOLTAGES  ARE  REQUESTED.  UP  TO  SIX  CHANGES  OF  APPLIED 
VOLTAGE  CAN  BE  SPECIFIED.  THE  USER  MUST  SPECIFY  THE  TEMPERATURE  AT 
WHICH  THE  APPLIED  VOLTAGE  IS  TO  BE  CHANGED  AND  THE  VALUE  TO  WHICH 
IT  WILL  BE  CHANGED.  FIRST  THE  NUMBER  OF  PAIRS  OF  VALUES  WILL  BE  REQUESTED 
THEN  THE  PAIRS  UILL  BE  REQUESTED  INDIVIDUALLY. 

LAST  THE  NECESSARY  FIELD  VALUE  IS  NEEDED. 

ALL  OF  THESE  VALUES  ARE  WRITTEN  TO  THE  DISK  FILE  IN  THE 
SAME  FORMAT  THAT  IS  ENTERED.  ALL  OF  THESE  INPUT/ OUTPUT 
OPERATIONS  ARE  DONE  IN  FREE  FORMAT. 


AUTHOR:  CAPTAIN  EDGAR  ft.  VERCHOT,  JR.,  USAF 


THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
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C  HEADER 

0002  BYTE  TITLE<20) iTGDflYO) 

0003  REAL  ITEMPaeQ) 

0004  INTEGER  TYPTEM 

C  DATAIN 

0005  REAL  TEMPC100), FIELD, AULT<2,6) 

0006  INTEGER  NTEMPT , ETVPE, NAUOLT 

C  FILE IN 

0007  BYTE  TNAME<20),DPNAME<20) 

C 

C 

c 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
C 

0008  COMMON  /HEADER/TITLE, ITEMP , TYPTEM, TODAY 

0009  COMMON  /DATAIN/NTEMPT, TEMP, ETYPE, FIELD, 

2NAU0LT,AULT 

C 

0010  BYTE  ERRFLG 

0011  INTEGER  ERRET 

C 
C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

c 

0012  10  UIRITEC?,  1000) 

0013  1000  FORMAT (  /, '  ENTER  FILE  NAME  IN  FORMAT  EX:  DX1 : UDPDAT . ONE  ",*) 

0014  CALL  GET STR ( 5 ,  DPNAME ,  19,  ERRFLG) 

C 

0015  OPEN (UNIT=1, NAME=DPNAME , T VPE= ' NEU ' ) 

C 

0016  WRITE<1, 1210)  TODAY 

0017  1210  FORMAT-:  9A1) 

0018  WRITE<7, 1002) 

0019  1002  FORMAT <  ENTER  EXPERIMENT  TITLE  IN  19  CHARACTERS V"  ,  $) 

0020  CALL  GETSTR<5, TITLE, 19, ERRFLG) 

0021  WRITE<1,1003)  <TITLE-:i),  I=1,LEN< TITLE)) 

0022  1003  FORMAK80A1) 

C 

C  CHECK  TO  SEE  IF  TEMPERATURE  OR  INUERSE  TEMPERATURE  IS  USED 
C 

0023  ASSIGN  500  TO  ERRET 

0024  500  CONTINUE 
0025  URITEC7, 1011) 

0026  1011  FORMAT <  INPUT  A  "a"  IF  TEMPERATURE  WILL  BE  USED",/, 

1'  OR  A  "1"  IF  INUERSE  TEMPERATURE  WILL  BE  USED  ',$) 

0027  READ<5,*>  TYPTEM 

0028  WRITEQ,*)  TYPTEM 

C  CHECK  FOR  ERROR 

0029  IF  <  TYPTEM  .  NE  .  0 .  AND .  T VPTEM .  NE .  1 )  GO  TO  900 

C  NOW  GET  THE  TEMPERATURE  POINTS  TO  BE  TAKEN 
C 
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8831 

0832 

0033 

0034 

0035 

0036 

0037 

0039 


0041 

0042 

0043 

0044 

0045 


0046 

0047 

0048 

0049 

0050 

0051 


0052 

0053 

0054 

0055 

0056 


C  FIRST  GET  THE  NUMBER  OF  TEMPERATURES  TO  BE  USED 
C 

ASSIGN  510  TO  ERRET 
510  CONTINUE 

WRITE'?, 1005) 

1005  FORMAT'  /,  '  ENTER  NUMBER  OF  TEMPERATURE  POINTS  TO  BE  TAKEN  ',/ 
1'  BETWEEN  ONE  AND  ONE  HUNDRED  '  $) 

READ ( 5 , * , END=28 ) NTEMPT 
URITE< i,*)NTEMPT 
IF(TVPTEM.NE.Q)  GOTO  40 
C  CHECK  FOR  ERROR 

IF(NTEMPT.LT. 1. OR. NTEMPT. GT. 100)GQ  TO  910 
C 

C  NOW  GET  THE  UALUES  OF  TEMPERATURE  THAT  WILL  BE  USED 
C 
C 
C 

WRITE<7, 1020) 

1020  FORMAT'  /,'  ENTER  THE  DESIRED  TEMPERATURES  ') 

READC5, *, END=20) (TEMP ( J ) , J*l, NTEMPT ) 

C 

WRITEa,*XTEMP(J),J=l, NTEMPT) 

GO  TO  45 
C? 

C  GET  THE  DESIRED  INUERSE  TEMPERATURE  POINTS 

C 

C 

40  CONTINUE 

WRITE<7, 1012) 

1012  FORMAT <  /,'  ENTER  THE  DESIRED  INUERSE  TEMPERATURES',/, 

1'  SEPARATED  BY  COMMAS.  USE  UNITS  OF  1000/TEMPERATURE  ') 
READ<5,*)  (ITEMP(J),J=1, NTEMPT) 

C 

WRITE<1,*)  <ITEMP(J),J=1, NTEMPT) 

45  CONTINUE 

C 

c 

c 

C  NOW  GET  THE  EXPERIMENT  TYPE 
C 

c 

ASSIGN  520  TO  ERRET 
520  CONTINUE 

WRITE<7, 1035) 

1035  FORMAT <  /,'  ENTER  ZERO  IF  YOU  NEED  OPTIONS  ON  EXPERIMENT  TYPE, 

1  OTHERWISE  ENTER  1  ',*) 

READ<5,*)  K 
C 


0057 

MtA 

0060 


IF<K.NE.0)GOTQ  50 
WRITEC7, 1040) 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
1040  FORMAT ( 


0061 

0062 

0063 

0064 

0065 

0066 


0068 

0069 

0078 

0071 

0072 

0073 


0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 


0084 

0085 

0086 

0087 

0088 


L 

1 

1 

l 

1 

1 

l 

1 

1 

1 


'  THE  TVPE  SPECIFIES  THE  SAMPLE  CONFIGURATIONS', 

'  TO  BE  DONE.' 

'  "1"  CAUSES  PLUS  OR  MINUS  ONE  THROUGH  SIX  TO  BE' 

'  DONE  FOR  EACH  TEMPERATURE  POINT. ' 

'  "2"  CAUSES  PLUS  OR  MINUS  ONE,  TWO,  AND  Fi'JE  TO'  / 

'  BE  DONE  AT  ODD  TEMPERATURE  POINTS  AND  PLUS  OR'  / 

'  MINUS  THREE,  FOUR,  AND  SIX  TO  BE  DONE  AT  EUEN' 

'  TEMPERATURE  POINTS.'  / 

'  “3"  CAUSES  SAMPLE  CGNFIGUATIONS  SEUEN  AND  EIGHT'  / 

'  TO  BE  DONE. '  /> 


50  CONTINUE 

WRITE<7, 1130) 

1130  FORMAT <.  /,'  ENTER  THE  E>PERIMENT  TVPE  ',$) 

READ<5,*>  ETVPE 
URITEd,*)  ETVPE 
C  CHECK  FOR  ERROR 

IFCETVPE.  NE. 1 . AND. ETVPE. NE. 2. AND. ETVPE. HE. 3)GQ  TO  920 
C 

C  NOW  READ  THE  APPLIED  'JOLT AGE  UALUES. 

C 

ASSIGN  530  TO  ERRET 
530  CONTINUE 

WRITE<7, 1135) 

1135  FORMATS  /, '  THE  APPLIED  UOLTAGES  ARE  IN  UOLTS') 

WRITE<7, 1140) 

1140  FORMAT <  /,'  VOU  MAV  ENTER  UP  TO  6  PAIRS  OF  TEMPERATURES, APPLIED 
1  UOLTAGES',/,'  THESE  PAIRS  WILL  BE  THE  TEMPERATURES 
1AT  WHICH',/,'  THE  APPLIED  UOLTAGES  WILL  CHANGE  TO 
l  THE  SPECIFIED  UALUE ' ) 

WRITEC7, 1158) 


1150 


1160 


100 

C 

C 

C 

C 

C 

C 

C 

1228 


20 


FORMAT <  /,'  ENTER  THE  NUMBER  OF  TEMPERATURES, APPLIED  UOLTAGES 
1  PAIRS  ',$) 

READ (5,*)  NAUOLT 
WRITECi,*)  NAUOLT 
DO  100  1=1, NAUOLT 
WRITEC7, 1168) 

FORMAT < 

1  '  IN 

R£AD< 

WRI TE<1 ,  * )  AULT ( 1 , NAUOLT- 1+ 1 ) , AULT  <2 , NAUOLT-1+ 1 ) 

CONTINUE 


NOW  GET  FIELD  UALUES 


WRITEC7, 1220) 

FORMAT <  /,'  BITER  DESIRED  FIELD  MAGNITUDE  IN  KGAUSS  ') 
READ(5,*)  FIELD 
WRITEC1,*)  FIELD 
CONTINUE 
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\  s 


0889  CLOSE (UNI T=l) 

C 

C 

0090  GO  TO  999 

C  ERROR  MESSAGES  TO  FOLLOW 
C 

C  ERROR  FOR  TYPE  OF  TEMPERATURE  INCORRECT 
C 

0091  900  CONTINUE 
0092  URITE(7,9O00) 

0093  9000  FORMAT </'  UflLUE  MUST  BE  M0"  OR  Ml“0 
0094  GO  TO  ERRET 

C 

C  ERROR  FOR  INCORRECT  NUMBER  OF  TEMPERATURES 
C 

0095  910  CONTINUE 
00%  WRITE(7,9010> 

0097  9010  FORMAT*/'  UALUE  MUST  BE  GREATER  THAN  ZERO  AND  LESS 
1  THAN  100') 

0098  GO  TO  ERRET 

C  ERROR  FOR  EXPERIMENT  TYPE 
0099  920  CONTINUE 

0108  WRITE<7,9020> 

0101  9020  FORMATS'  ALLOWED  UALUES  ARE  "l"i  "2",0R  "3"') 

0102  GO  TO  ERRET 

C  ERROR  FOR  NUMBER  OF  APPLIED  UOLTAGE  PAIRS 
.0103  930  CONTINUE 

0104  WRITE<7,9030> 

0105  9030  FORMAT </'  UALUE  MUST  BE  AN  INTEGER  BETWEEN  "l"  AND  "6"') 

0106  GO  TO  ERRET 

0107  999  CONTINUE 

0108  RETURN 

0109  END 
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Figure  22.  Flow  Chart  for  Module  A13 


0001 


SUBROUTINE  R13 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 


0010 


0011 

0012 


C 

C  THIS  PROGRAM  IS  TO  CREATE  THE  TEMPERATURE  CALIBRATION  FILES 
C 


C 

C  A13-CREATE  THERMOMETER  CALIBRATION  FILES 
C 

C  THIS  MODULE  WILL  INTERACT IUELV  GUIDE  THE  EXPER I MENTOR 
C  TO  CREATE  A  THERMOMETER  CALIBRATION  FILE  ClN  THE  DISK. 

C  HE  WILL  FIRST  BE  REQUESTED  TO  ENTER  THE  FILE  NAME.  THE  FILE 
C  CAN  BE  STORED  ON  EITHER  DXO:  OR  DXl:.  DXO  IS  PREFERRED  IF  THERE 
C  IS  ROOM  SO  THAT  DXl:  IS  LEFT  FREE  FOR  ONLY  THE  OUTPUT  DATA  AND  THUS 
C  CAN  BE  READILY  REPLACED  WITHOUT  COPYING  FILES.  A  THERMOMETER 
C  CALIBRATION  FILE  WOULD  NGRMALLV  BE  USED  FOR  THE  LIFE  OF  THE 
C  THERMOMETER.  THE  NAME  FORMAT  IS  DX0: THERMO. RED.  THE  THERMOMETER 
C  IDENTIFIER  CAN  BE  ENTERED  NEXT  CUP  TO  19  CHARACTERS).  THEN  THE 
C  NUMBER  OF  CALIBRATION  POINTS  TO  BE  USED CUP  TO  100 >  IS  ENTERED. 

C  THE  CALIBRATION  POINTS  ARE  ENTERED  NEXT  IN  THE  FORMAT , 

C  TEMPERATURE,  UOLTAGE. 

C  EACH  PAIR  IS  ENTERED  INDl'JIDUALLV  TO  ASSURE  MINIMUM  ERRORS. 

C  THE  FILE  IS  WRITTEN  OH  DISK  IN  THE  SANE  FORMAT  AS  IT  WAS  ENTERED 
C  ON  THE  TERMINAL.  ALL  INPUT/OUTPUT  IS  FORMAT  FREE. 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT,  JR.,  USAF 

C 
C 
c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 

c 

C  HEADER 

BYTE  TITLEC20), TODAY  C9 ) 

REAL  ITEMPC100) 

INTEGER  TVPTEM 
BYTE  ERRFLG 

r  TPfll  TR 

BYTE  THRMIDC20) 

INTEGER  NTEMP 
REAL  TEMCALC2, 100) 

C  FILE IN 

BYTE  TNANE (20 ) >  DPNAMEC  20 ) 

C 

C  RELTIM 

INTEGER  RTDATA 
C 
c 
c 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
C 

COMMON  /HEADER/TITLE, ITEMP, TVPTEM, TODAY 
COMMON  /TCALIB/THRMID, NTEMP, TEMCAL 
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c 

0013  WRITE'?, 1600) 

0014  1000  FORMAT C  '  ENTER  THE  FILE  NAME  IN  FORMAT  DXi: THERMO. RED  ',$) 

0015  CALL  GETSTR'5,TNAME,  19,ERRFLG) 

C 

0016  QPENCUNIT=1,NAME=TNAME, TYPE=/NEW' ) 

C 

C  WRITE  THE  DATE  TO  THE  TEMPEATURE  FILE 
C 

0017  WRITE'.  1,1900)  TODAV 

0018  1900  FORMAT C  9A1) 

C 

C 

c 

C  NOW  GET  THE  THERMOMETER  IDENTIFIER 
C 

0019  WRITEC7, 1010) 

0020  1010  FORMAT'  ENTER  THE  THERMOMETER  ID  IN  19  CHARACTERS  ',$> 

0021  CALL  GETSTR'5, THRMID, 19, ERRFLG) 

0022  WR I TE Cl , 2000 )  THRM I D 

0023  2000  FORMAT-:  80A1) 

C 

C  NOW  GET  THE  NUMBER  OF  CALIBRATION  POINTS  TO  BE  USED 
C 

0024  WRITE'.?,  1020) 

0025  1020  FORMAT'.  '  ENTER  THE  NUMBER  OF  CALIBRATION  POINTS 

ITO  BE  USED',/,-'  MUST  BE  LESS  THAN  100  ',*) 

0026  READ '.5,  *)  NTEMP 

002?  WRITE Cl,*)  NTEMP 

C 

C  GET  THE  CALIBRATION  TABLE 

C 

C 

0028  WRITE'.?,  1040) 

0029  1040  FORMAT C  /,  '  TEMPERATURES  ARE  TO  BE  ENTERED  SEQUENTIALLY 

1',/,'  BEGINNING  WITH  THE  LOWEST  ") 

0030  DO  10  1=1, NTEMP 

0031  WRITE'.?,  1830) 

0032  1030  FORMAT-:  /, '  ENTER  THE  PAIRS  OF  TEMPERATURES, 

1UOLTAGES  ',$) 

0033  READC5,*)  TEMCALC 1,1), TEMCALC2, I ) 

0034  WRITEC1,*)  TEMCALC 1, 1) , TEMCALC2, 1) 

0035  10  CONTINUE 

0036  GOTO  20 

0037  20  CONTINUE 

0038  CLOSE CUN I T=l) 

0039  RETURN 
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Figure  23.  Flow  Chart  for  Module 
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0013 


C 


C 

c 

C  ftl4-  OPERATOR  INITIALIZATION  DIALOGUE 
C 

c 

C  THIS  MODULE  GUIDES  THE  EXPER I MENTOR  TO  ENTER  ALL  THE 
C  PARAMETERS  THAT  WILL  BE  NEEDED  TO  RUN  AN  EXPERIMENT .  FIRST 
C  HE  MUST  ENTER  THE  THERMOMETER  CALIBRATION  FILENAME  AND  THE 
C  DISIRED  DATA  POINTS  FILENAME.  NEXT  THE  SAMPLE  IDENTIFIER  IS 
C  ENTERED.  NEXT  SAMPLE  TYPE.  'JAN  DER  PAUU  OR  HALL  BAR  IS  REQUESTED. 

C  SAMPLE  DIMENSION(S).>  IN  CENTIMETERS.  ARE  THEN  REQUESTED: 

C  THICKNESS.  IF  THE  SAMPLE  IF  URN  DER  PAUU, 

C  THICKNESS,  LENGTH  AND  WIDTH  IF  THE  SAMPLE  IS  A  HALL  BAR. 

C  NEXT  THE  EXPER I MENTOR  SPECIFIES  WHETHER  HE  WANTS  THE 
C  DATA  PLOTTED  IN  REAL  TIME  OR  NOT.  IF  HE  DOES  HE  CAN  SELECT 
C  UP  TO  FOUR  DATA  PAIRS  TO  BE  PLOTTED.  THESE  PAIRS  ARE  THEN 
C  ENTERED  ACCORDING  TO  THE  PROUIDED  SYMBOL  TABLE. 

C  IF  REAL  TIME  DATA  PRINTOUT  ON  THE  TERMINAL  IS  DESIRED  THIS  FLAG 
C  IS  NOW  ENTERED.  IF  ANY  OF  THE  COMPUTER  CONTROLLED  EXPERIMENTAL 
C  EQUIPMENT  IS  INOPERATIUE,  THIS  STATUS  IF  ENTERED.  THE 
C  COMPUTER  WILL  REQUEST  THE  OPERATOR  TO  SET  THE  PART ICUALAR  PIECE(S) 

C  OF  APPARATUS  TO  THE  REQUIRED  UALUECS)  OR  INPUT  THE  DATA  POINTCS) 

C  REQUIRED  FROM  THE  TERMINAL.  A  TABLE  IS  PROUIDED  FOR 
C  EQUIPMENT  INOPERATIUE  FLAGS.  THESE  PARAMETERS  ARE  PASSED  TO  MODULE 
C  A14  UIA  Al. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI 

c 

c 

C  DATA  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  Al 

c 

r  TrM  TR 

BYTE  THRMIDC20) 

INTEGER  NTEMP 
REAL  TEMCAL<2, 100) 


C  SATFLE 

BYTE  SAMID(20) 

INTEGER  SAMTYP 
REAL  SAMT.SAMW.SAML 
C  PLTOUT 

BYTE  P0PTSC6, 11 ) 

INTEGER  PL0TAB<4) ,PL0T0R(4) .PLOT.NP 
C  FILE IN 

BYTE  TNAME(20> , DPNAMEC20) 

C  EQPOUT 

BYTE  EQUIPF<10,3) 

INTEGER  IEI0F.E0FLAGC7) 

C 

C  RELTIM 

INTEGER  RTDATA 
C 
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0014 

0013 


0016 


001? 

0018 

0019 

0020 

0021 

0022 


0023 


0024 

0025 

0026 

0027 

0028 


0029 

0030 


C 

C 

C  INTERNAL  DATR  SPECIFICATIONS 
C 

BYTE  LINE <20 >, COMMA-: 2) 

INTEGER  ERRFLG,  ERRET , EFLAG  <  7 ) 

C  THESE  RRE  THE  COMMON  BLOCKS  FROM  MODULE  R1 
C 

COMMON  /TCRL I B/THRM I D ,  HTEMP ,  TENCAL 
CC 

c 

COMMON  /SAMPLE/SAM I D , SANT VP -  SANT , SAMU  , SRML 
COMMON  /PLTOUT/PLOT ,  PGPTS ,  NP ,  PLOTAB ,  PLOTOR 
COMMON  /FILEIN/TNAME, OPNAME 
COMMON  /EQPOUT^EOFLAGiEiiULPFi  IEIOF 
COMMON  /RELTIM/RTDATA 
C 


DATA  PGPTS/'T','E','M','P','  ", 


C 

C 

C  NOW  GET  THE  THERMOMETER  CALIBRATION  FILENAME 

C 

C 

ASSIGN  10  TO  ERRET 
10  CONTINUE 

WRITEC7, 1000) 

1000  FORMAT <  '  ENTER  THE  THERMOMETER  CALIBRATION  FILENANE  ',*> 
CALL  GETSTR<5,TNAME, 19, ERRFLG) 

C 

C 

C  CHECK  TO  SEE  IF  TNAME  IS  A  GOOD  FILE 
C 

0PEN(UN1T=1 , NAME=TNAMEi TVPE= 'OLD', READONLY, ERR=81 0 ) 
CLOSE<UNIT=l> 

C 

c 

C  GET  DESIRED  DATA  POINTS  FILENAME 
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c 

c 


0031 

ASSIGN  20  TO  ERRET 

0032 

28 

CONTINUE 

0033 

WRITE*?, 1010) 

0034 

1010 

FORMAT*  '  ENTER  DESIRED  DATA  POINTS  FILENAME 

0035 

CALL  GETSTR*5,DPNAME,  19,  ERRFLG) 

C 

C 

C  HOW  CHECK  TO  SEE  IF  FILE  EXISTS 

C 

C 

8036  0PEN*UNIT=2,  NAME=DPNAME ,  TYPE='OLD' ,  READONLY, ERR=810) 

8837  CL0SE*UNIT=2) 

C 

c 

C  NOW  GET  THE  SAMPLE  ID 

C 

C 

8838  WRITE*?, 1628) 

8839  1820  FORMAT*  ENTER  THE  SAMPLE  IDENTIFIER  ',*> 

8840  CALL  GETSTR*5, SAMID, 19, ERRFLG) 

C 

C 

C  GET  SAMPLE  TYPE 

CC 

C 

8841  ASSIGN  30  TO  ERRET 

0042  30  CONTINUE 

0043  WRITE*?, 1630) 

0044  1030  FORMAT*  '  ENTER  A  "0"  IF  THE  SAMPLE  IS  UAN  DER  PAUW"  ✓ 

1  '  ENTER  A  "1"  IF  THE  SAMPLE  IS  A  HALL  BAR'  ✓ 

2  '  ENTER  THE  SAMPLE  TYPE  ' >*) 


0045 

0046 

C 

C  GET 
C 

READ<5,*)  SAMTYP 

IF *SAMTYP. NE. 0.AND.3AMTYP. NE. 1)  GOTO  830 

THE  SAMPLE  DIMENSIONS 

Wrtv 

C 

WRITE*7, 1040) 

0049 

1040 

FORMAT*  /, '  ENTER  THE  SAMPLE  THICKNESS  IN  CENTIMETERS 

0050 

C 

READ*5,*)  SAMT 

0051 

C 

C 

IF*SAMTYP.EQ.0)GOTO  40 

0053 

C 

WRITE*?, 1850) 

0054 

1050 

FORMAT*  /, '  ENTER  THE  SAMPLE  LENGTH  IN  CENTIMETERS 

0055 

C 

READ*5,*)  SAUL 

0056 

C 

WRITE(7, 1060) 

*) 


88 


0057  I860  FORMAT *  ENTER  THE  SAMPLE  WIDTH  IN  CENTIMETERS  '.*> 

0058  READ(5i*)  SANK 

C 

0059  40  CONTINUE 
C 
C 

C  SET  THE  PLOT  FLAG 

C 

C 

0060  WRITE  >'7>  1870) 

0061  1070  FORMAT*  ^  '  DO  YOU  WANT  ANY  DATA  PLOTTED  IN  REALTIME?'  / 
l  '  ENTER  A  "O'1  FOR  NO  OR  A  “l"  FOR  YES  ' ,%) 

0062  READ<5j+)  PLOT 

C 

0063  IF  (  PLOT . EQ . Q ) GOTO  50 

C 

C  GET  THE  PARAMETERS  TO  BE  PLOTTED 

C 

C 

0065  ASSIGN  45  TO  ERRET 

0066  45  CONTINUE 
0067  WRITE<7, 1886) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
0068  108O  FORMAT*  '  YOU  CAN  PLOT  UP  TO  FOUR  DATA  PAIRS  IN  REAL  TIME.'  / 

1  '  THE  OPTIONS  ARE:'  ✓ 

1  '  TEMPERATURE  =  TEMP  '  / 

l  '  R1/R2  =  R1/R2  '  / 

1  '  R3/R4  =  R3/R4  '  / 

l  '  AUERAGE  Rl/R2=  AR1/R2  '  / 

1  '  INUERSE  TEMPERATURE  =  1/T'  / 

t  '  DELTA  TEMPERATURE  =  DELTA'  / 

l  '  RESIST IUITV  =  RHO'  / 

1  '  MOBILITY  =  MU'  / 

1  '  CARRIER  CONCENTRATION  =  P'  / 

1  '  HALL  COEFFICIENT  =  RH' 

t  '  ENTER  THE  NUMBER  OF  DATA  PAIRS  DESIRED  ',$> 

C 

0069  READ*5,*)  NP 

C 

0070  IF(NP.LT.0.OR.NP.GT.4)  GOTO  840 

C 
C 

C  MOW  GET  THE  PLOT  PARAMETERS 

C 

C 

0072  DO  68  K=l,h#> 

0073  80  CONTINUE 
0074  URITE*7; 1100) 

0075  1100  FORMAT*  ENTER  THE  DATA  PAIR  IN  FORMAT  ABC ISSA, ORDINATE') 

0076  CALL  GETSTR*5,LINE,19,ERRFLG> 

0077  I>IM)EX*LINE> COMMA) 

0078  IF(I.LE.l)  GO  TO  850 

0080  LINE*I)=0 
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0081 

J*I+l 

0082 

CALL  STRPADCLINECJ),6»ERRFLG) 

0083 

I0RD1= INDEX CPOPTS i LI NEC J ) ) 

0084 

CALL  STRPAD CL INEC 1 ) ,  6  >  ERRFLG) 

0085 

r 

IABC1*INDEXCP0PTS,L1NEC1)) 

0088 

I* 

IF<IABC1.LT. 1)  GO  TO  350 

0088 

IFCIORD1.LT. 1)  GO  TO  350 

WvU 

L 

PLOTABCK)=C IABCl+5)/6 

0091 

PLOTORCK )= C IORD 1+5 ) /6 

0092 

GOTO  60 

0093 

850 

CONTINUE 

0094 

WRITEC7,8050) 

0095 

8050 

FORMAT C  INUALID  DATA  PAIR  ENTERED') 

0096 

GO  TO  80 

0097 

1# 

60 

CONTINUE 

W70 

50 

C 

CONTINUE 

c 

C  SET 

THE  REAL  TIME  DATA  ON/OFF  FLAG 

C 

C 

0099 

WRITEC7, 1130) 

0100 

1130 

FORMAT C  '  ENTER  A  "l"  IF  YOU  WANT  REAL  TIME  DATA  PRINTOUT 
l,/,'  ENTER  A  "0"  IF  NOT  ',$) 

0181 

C 

READC5,*)  RTDATft 

C 

C  SET  THE  EQUIPMENT  INOPERATIVE  FLAGS 

C 

0102 

c 

WRITEC7,1150) 

0103 

1150 

FORMAT C  DO  YOU  HEED  TO  SET  ANY  EQUIPMENT  INOPERATIVE 

1  FLAGS?',/,'  ENTER  “l"  FOR  YES  OR  A  "0"  FOR  NO  ',$) 

0104 

READC5,*)  IE I OF 

0105 

V 

r 

IFCIEIOF.NE.l)  GOTO  70 

0107 

w 

WRITEC7, 1160) 

0108 

1168 

FORMAT C  HOW  MANY  EQUIPMENT  OUT  FLAGS  WILL  YOU  SET?  '.$) 

0109 

C 

READC5,*)  NFLAG 

0110 

C 

WRITEC7, 1170) 

0111 

1170 

FORMAT C  DMM  OUT  =  "1"'  / 

2  '  DUM  OUT  =  "2"'  / 

3  '  HEATER  POWER  SUPPLY  OUT  =  "3"'  / 

4  '  BIAS  UOLTAGE  POWER  SUPPLY  =  "4"'  / 

5  '  MAGNET  CONTROLLER  OUT  ="5,,/  / 

6  '  TEST  CONTROLLER  OUT  =  “6"'  / 

7  '  GAUSSMETER  OUT  =  "?M'> 


0112  WRITE<?> 1188) 

0113  1180  FQRMfiT ENTER  THE  FLAGS  SEPARATED  BV  COMMAS  '/*) 
0114  READC5.*)  <EFLAG<  I )  >  1=  1 » NFLAG) 

C 

C  INITIALIZE  FLAGS 
C 

0113  DO  180  1=1/7 

0116  EOFLAG< I)=0 

0117  100  CONTINUE 

C 

C  SET  FLAGS 
C 

0118  DO  90  I=1/NFLAG 

0119  EOFLAG<EFLAGU))=l 

0120  90  CONTINUE 

0121  70  CONTINUE 

C 

0122  GO  TO  1 

C 

C  ERROR  MESSAGES 
C 
C 
C 

C  ERROR  FOR  INPUT  FILE  DOES  NOT  EXIST 
C 

c 

0123  810  CONTINUE 

8124  WRITE(7/3010) 

0125  8010  FORMAT C  /*'  FILENAME  DOES  NOT  EXIST  ON  SYSTEM  ) 

0126  GO  TO  ERRET 

C 
C 
C 

C  ERROR  FOR  SAMPLE  TYPE  ILLEGAL 

C 

C 

0127  830  CONTINUE 

0128  WRITE C7/ 8030) 

0129  8030  FORMAT (  SAMPLE  TYPE  MUST  BE  EITHER  A  n0"  OR  A  "1"") 

0130  GO  TO  ERRET 

C 
C 

C  ERROR  FOR  ILLEGAL  NUMBER  OF  PLOT  PAIRS  ENTERED 

C 

C 

0131  840  CONTINUE 

0132  WRITE<7/8040) 

0133  8040  FORMATS  NUMBER  OF  PAIRS  CAN  ONLY  BE  1/2/3/OR  4') 

0134  GO  TO  ERRET 

C 

0133  1  CONTINUE 

0136  RETURN 

0137  END 
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Figure  24.  Flow  Chart  for  Module  A15 
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SUBROUTINE  R15 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  MODULE  015 — SETUP  FILES  AND  PARAMETERS 

C 

C 

C  THIS  MODULE  OPENS  THE  DESIRED  DATA 

C  POINTS  FILE  AND  THE  THERMOMETER  CALIBRATION  FILE  AND  ENTERS  THE 
C  NEEDED  DATA  FROM  THESE  INTO  THE  APPROPRIATE  ARRAVS  IN  THE  PROGRAM. 

C  IT  THEN  OPENS  THE  DISK  FILES  NEEDED  FOR  DATA  OUTPUT  AND  INITIALIZES  THEM. 
C  PRIOR  TO  PROGRAM  EXECUTION  ANV  FILES  FROM  PRECIOUS  EXPERIMENTS 
C  SHOULD  BE  RENAMED  USING  THE  MONITOR  COMMAND, 

C  RENAN  FILESPEC:  FILESPEC: 

C  BECAUSE  THE  PROGRAM  WILL  DESTROY  THEM  WHEN  THE  NEW  OUTPUT  FILES  ARE 
C  CREATED.  THE  PROGRAM  PAUSES  WHEN  A14  IS  FINISHED  UNTIL  THE  USER 
C  GIUES  THE  COMMAND  TO  BEGIN  THE  EXPERIMENT.  HE  SHOULD  DO  THIS 
C  ONLY  WHEN  HE  IS  CERTAIN  THAT  HE  HAS  TURNED  ON  AND  INITIALIZED  ALL 
C  REQUIRED  EQUIPMENT  FOR  THE  EXPERIMENT. 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT,  JR.,  USAF 

C 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
BYTE  ERRFLG 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C 

C  HEADER 

BYTE  TITLE (20),  TQDAVO) 

REAL  ITEMP(100) 

INTEGER  TYPTEM 
C  OBTAIN 

REAL  TEMP (100), FIELD, AULT (2,6) 

INTEGER  NTEMPT , ETVPE, NAUGLT , NDATPT 
r  TPM  TR 

BYTE  THRMID(20) 

INTEGER  NTEMP 
REAL  TEMCAL(2, 100) 

C  SAMPLE 

BYTE  SAMI D (20) 

INTEGER  SAMTVP 
REAL  SAMT , SAMW , SAML 
C  PLTQUT 

BYTE  POPTS(6,10) 

INTEGER  PLOTAB(4),PLOTOR(4),PLOT,NP 
C  FILE IN 

BYTE  TNAME(20),DPNANE(20) 

C  EQPOUT 

BYTE  EQUIPF(10,3) 

INTEGER  IEIOF,EOFLAG(7) 

C  CONTRL 

INTEGER  ABORT 
C 

C  RELTIM 
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0020 


INTEGER  RTDATA 


C 

C 

C 

C  THESE  ORE  THE  COMMON  BLOCKS  FROM  MODULE  fil 
C 

0021  COMMON  /HEflDER/TITLE  , I TEMP, TVPTEM, TODftV 

0022  COMMON  /DATAI N/NTEMPT -  TEMP , ETVPE. F IELD , 

2NAUGLT  j  AULT  >  NDATPT 

0023  COMMON  /TCRLIB/THRMID , NTEMP  , TEMCftL 

CC 

c 

0024  COMMON  /SAMPLE/SAM  I D ,  SAMT VP , SANT ,  SfiMW ,  SAML 

0025  COMMON  /PLTOUT/PLOT ,  POPTS ,  NP  ,  PLOTAB  ,  F'LQTOR 

0026  COWtON  /FILEIN/TNANE,DPNAME 

0027  COMMON  /EQPGUT /EGFLAG , EQU IFF /IE I QF 

0028  COMMON  /RELTIM- RTDftTfl 

0029  COMMON  /CONTPJL/ftBGRT 

C 
C 

C  NON  OPEN  THE  INPUT  FILES 
C 

0030  OPEN<UNIT=l ,  NAME=TNAME,  TYPE* "OLD " ,  READONLY) 

0031  0PENCUNIT=2, NANE=DPNAME,  TVPE=  OLD '  ,  READONLY  ) 

C 

C  NON  READ  THE  THERNGl'ETER  CALIBRATION  FILE  INTO  MEMORV 
C 

0032  CALL  GETSTRC 1 , DATE, 19 » ERRFLG ) 

0033  CfiLL  GETSTRC 1 ,  THRMI D ,  19 ,  ERRFLG) 

C 

C  NOU  READ  THE  CfiLIBRfiTION  TABLE  IN 
C 

C  TEMCALO,  I)  CONTAINS  THE  TEMPERATURES  AND 
0034  READ(1,*>  NTEMP 

0035  DO  10  1=1, NTEMP 

0036  READQ,*)  TEMCALU, I),TEMCAL(2, 1) 

0037  10  CONTINUE 
C 

0038  CLOSECUNIT=l> 

C 

C  READ  THE  DESIRED  DATA  POINTS  FILE  INTO  MEMORV 
C 

0039  CALL  GETSTR< 2, DATE, 19, ERRFLG) 

0040  CALL  GETSTRC2, TITLE, 19, ERRFLG) 

0041  READC2,*)  TVPTEM 

0042  READ<2,*)  NTEMPT 

C 

C  TEST  TO  DETERMINE  WHETHER  TEMPERATURE  OR  INUERSE 
C  TEMPERATURE  IS  TO  BE  USED  IN  THE  EXPERIMENT. 

C  THEN  GET  THE  TEMPERATURE  POINTS. 

C 

C 


0043 


lFaVPTEM.fC.0)  GO  TO  20 


0045 

8046 

0847 

0048 

0049 


0050 

0851 

0052 

0053 

0054 

0055 


0056 


0057 

0059 

0061 


0063 


0064 

0065 

0066 


0067 

0068 


0069 


0070 


C 

C  READ  TEMPERATURE  POINTS  AND  CALCULATE  INUERSE  TENPERTURES 
C 

READ(2,*>  <TEMP(I>j I=1jNTEMPT) 

DO  30  1=1, NTEMPT 

ITEMPCI )=1000/TEMPCI ) 

30  CONTINUE 

GO  TO  160 
C 

C  READ  THE  INUERSE  TEMPERATURES  AND  CALCULATE  THE  TEMPERATURES. 
C 

20  CONTINUE 

READ<2,*>  <ITEMPCI), l=l,NTEMPT) 

DO  40  I=1,NTEMPT 

TEMP<I)=1000/ITEMP(I ) 

40  CONTINUE 

100  CONTINUE 
C 

C  GET  THE  EXPERIMENT  TVPE 
C 

READ<2,*>  ET7PE 
C 

C  NOW  FIND  OUT  HOU  MANV  DATA  POINTS  THERE  ARE 
IFCETVPE. EO. 1 )NDATPT=20 
IF<ETVPE. EQ.2)NDATPT=10 
IF<ETVPE.EQ.3>NDATPT=8 
C 

C  GET  THE  NUMBER  OF  APPLIED  UGLTAGE  CHANGE  POINTS 
C 

READ<2,*>  NAUOLT 
C 
C 

C  READ  THE  TEMPERATURE, APPLIED  UGLTAGE  PAIRS 

C 

c 

DO  50  1=1 > NAUOLT 

READ<2,+>  AULTa,I>,AULK2,I> 

50  CONTINUE 
C 

C  GET  THE  FIELD  UALUES 

C 

C 

READ<2,+>  FIELD 
C 

CL0SE<UNIT=2) 

C 

c 

c 

C  NOW  SET  UP  THE  OUTPUT  FILE  FOR  THE  DATA 
850  CONTINUE 
C 

c 

OPENCUNI T=3, NAME='DX1 : OUTPUT.DAT ' , TYPE='NEU' , 
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0071 


0072 

0073 

0074 

0073 

0076 


0077 

0078 

0078 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0089 

0090 

0091 

0092 

0093 

0094 

0095 


2F0RM= ' UNFORMATTED ' , INITIALSIZE=8, ERR=800> 

OPENC  UNI T=  1 ,  NAME= '  DX 1 :  Rflt'OUT . DAT ' ,  TVPE= '  NEW ' , 

2FORM= 'UNFORMATTED' , INITIALSIZE=100, ERR=8O0) 

0PENCUNIT=2, NAME='DX1 : IMTRMD. DAT' ,  TVPE='NEW' , 

2FORfl=  '  UNFORMATTED ' ,  1NITIALSIZE=8>  ERR=800 ) 

GO  TO  310 
800  CONTINUE 

WRITEC7,8000) 

8000  FORMAT < '  ','  THERE  IS  NOT  ENOUGH  ROOM  ON  DXl:  FOR  THE 

2  OUTPUT  FILES',/,'  PLACE  A  FRESH  DISK  IN  THE  DRIUE  THEN',/, 

3  '  INPUT  AN  INTEGER') 

ERRFLG=0 

READC5,*)  INTGER 
GO  TO  850 
810  CONTINUE 

C  WRITE  THE  HEADERS  ON  THE  OUTPUT  FILES 

DO  5000  N=1 . 3 

WRITECN)  CT0DAVCM),M=1,9) 

WRITECN)  CTITLECJ), J=l> 19) 

WRITECN)  CTHRMIDCK),K=t, 19) 

WRITECN)  CSANIDCL),L=i,20) 

WRITECN)  SAMTVP 
IFCSANTVP.NE.6)  GO  TO  5010 
WRITECN)  SAMT 
GO  TO  5800 

5010  CONTINUE 

WRITECN)  SAMT , SAMW, SAML 
5000  CONTINUE 
C 

RETURN 

END 
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0001 


SUBROUTINE  R2 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCXCCCCCCCCCCCCCCCCCCIXC 

C  MODULE  fl2 - DETERMINE  SETTING 

C  THIS  MODULE  CONTROLS  A21 - A24. 

C 

C  THIS  MODULE  WILL  DETERMINE  THE  APPROPRIATE 
C  SETTINGS  FOR  RLL  OF  THE  DATA  PARAMETERS. 

C  R2  IS  THE  EXECUTIVE  MODULE.  IT  CHECKS  RLL  OF  THE  CONTROL  FLAGS  AND 
C  CALLS  THE  APPROPRIATE  PARAMETER  SETTING  MODULES.  IT  ALSO  RESETS 
C  ALL  OF  THE  CONTROL  FLAGS  AS  APPROPRIATE. 

C  FOUR  MODULES  ARE  UNDER  THE  CONTROL  OF  A2: 

C  A21 - DETERMINE  TEMPERATURE  SETTING 

C  A22 - DETERMINE  FIELD  SETTING 

C  A23 - DETERMINE  SAMPLE  CONFIGURATION  SETTINGS 

C  A24 - DETERMINE  APPLIED  VOLTAGE  SETTING. 

C  AFTER  EACH  BLOCK  OF  DATA  IS  COMPLETE  A2  GENERATES  A  START 
C  DATA  PROCESSING  SIGNAL  WHICH  WILL  SIGNAL  MODULE  A5, 

C  REDUCE  DATA,  TO  EXECUTE  AS  SOON  AS  DATA  ACQUISITION  COMPLETE  IS  RECEIVED. 

C  AT  THE  APPROPRIATRE  TIME,  A2  GENERATES  THE  EXPERIMENT  COMPLETE  SIGNAL 
C  TO  END  THE  EXPERIMENTAL  RIJN. 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  DATA  SPECIFICATIONS 

c 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  DATAIN 

0002  REAL  TEMP(I00),FIELD,RVLT(2,6) 

0003  INTEGER  NTENPT , ETVPE, NAUOLT , NDATPT 

C  TCRLIB 

0004  BVTE  THRMID<20> 

0005  INTEGER  NTEMP 

0006  REAL  TEMCALC2, 100) 

C  EQPOUT 

0007  BVTE  EGUIPF(10,3) 

0008  INTEGER  1EI0F,EQFLAG<?> 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 

C  CONSIG 

0009  INTEGER  SDP, EXPC, FSCOM, SCSCOM,  VLTCOM 

C 

C  A2C0M 

0010  INTEGER  NTEM , SCSET , SCOUNT , VCOUNT , RUN 

0011  REAL  TEMSET , FLDSET , VLTSET , X0 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
0012  COMMON  /DATAI N/NTEMPT ,  TEMP .  ETVPE.  F  LELD, 

2NAVOLT ,  AVLT ,  NDATPT 

0013  COMMON  /TCAL IB/THRM I D ,  NTEMP ,  TEMCAL 

0014  COMMON  /EQPOUT /'EOFLAG , EQU 1PF , IE I OF 

C  THE  NATED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

0015  COMMON  /CONSIG/SDP , EXPC , FSCOM, SCSCOM, VLTCOM 

0016  COMMON  /R2C0M/TEMSET , FLDSET , VLTSET , X0, NTEM, SCSET , SCOUNT , 

2VCOUNT , RUN 
C 
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C  RESET  SCQUNT 
C 

c 

CC  TEST  THE  CONTROL  SIGNRLS  TO  DETERMINE  WHERE  TO  GO  NEXT 
0017  10  CONTINUE 

0018  RUN=RUN+1 

C  IF  THE  OLD  UOLTRGE  SETTING  IS  POSITIUE  GO  DO  THE  NEGATIUE  UQLTAGE 
C  WITH  ALL  THE  OTHER  PARAMETERS  THE  SAME. 

0019  IF«JLTSET.GT.0.0)GO  TO  24 

C  IF  ALL  FIELD  SETTINGS  ARE  COMPLETE  AT  THIS  TEMPERATURE  SET  THE  CONTROL 
C  SIGNALS  AND  GO  TO  A5s REDUCE  DATA. 

0021  IF (FSCOM. EQ. 1. AND. SCSET . EG. 5. AND. ETVPE. EQ. 1 )GO  TO  11 

0023  IF (FSCOM. EQ. t)GO  TO  100 

0025  11  CONTINUE 

C  IF  ALL  THE  SAMPLE  CONFIGURATIONS  ARE  COMPLETE  AT  THIS  FIELD  SETTING 
C  GO  TO  A  NEW  FIELD  SETTING. 

0026  IFCSCSCOM.EO. 1)G0  TO  22 

C  IF  ALL  THE  UOLTRGE  SETTINGS  ARE  COMPLETE  AT  THIS  SAMPLE 
C  CONFIGURATION  SET  A  NEW  CONFIGURATION. 

0028  IFCULTCOM.EG.DGO  TO  23 

0830  IFCUCOUNT.EQ. 1)GQ  TO  24 

C 

C  CALL  THE  TEMPERATURE  SETTING  MODULE 
C 

0032  21  CONTINUE 

0033  CALL  A21 

C 

C  CALL  THE  FIELD  SETTING  MODULE 
C 

0034  22  CONTINUE 

0035  SCSCOM=0 

0036  CALL  A22 

C 

C  CALL  THE  SAMPLE  CONFIGURATIONS  SETTING  MODULE 
C 

0037  23  CONTINUE 

0038  ULTCOM=0 

0039  CALL  A23 

C 

C  CALL  THE  APPLIED  'JOLTAGE  SETTING  MODULE 
C 


0040 

24 

CONTINUE 

0041 

CALL  A24 

0042 

GO  TO  900 

C 

NOW  GO  TO  THE  REDUCE  DATA  MODULE  TO  REDUCE  A  BLOCK  OF  DATA 

0043 

W 

100  CONTINUE 

0044 

RUN=RUN  -  1 

0045 

FSC0M=0 

0046 

SDP=1 

3047 

IF«NTEM-1 )  .EQ.NTEMPT)EXPC=1 

0049 

GO  TO  900 

C 
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AAKA 

wJO 

0051 

0052 


C 

C 

900  CONTINUE 
RETURN 
END 
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0001 


SUBROUTINE  R21 


0002 

0003 

cmctd 

WTOM 

0005 

0006 


C 


C 

C  MODULE  021 - DETERMINE  TEMPERATURE  SETTNGS 

C 

C  THIS  MODULE  DETERMINES  THE  PROPER  TEMPERATURE 
C  SETTING  FOR  THE  SAMPLE.  IT  TAKES  THE  DESIRED  TEMPERATURE 
C  AND  CONUERTS  IT  TO  THE  UOLTAGE  NEEDED  AND 
C  PASSES  THIS  UALUE  BACK  TO  H2. 

C 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  DATA  SPECIFICATIONS 

c 

c  c 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  DATRIN 

REAL  TEMP(100),FIELD,AULT(2,6) 

INTEGER  NTEMPT, ETVPE, NAUGLT , NDATPT 
C  TCALIB 

BVTE  THRMID<20> 

INTEGER  NTEMP 
REAL  TEMCAL<2, 100) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C  A2C0M 


0007  INTEGER  HTEM , SCSET , SCOUNT , UCOUNT , RUN 

0008  REAL  TEMSET , FLDSET , ULTSET , X0 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
0009  COMMON  /DATAIN/NTEMPT , TEMP , ETVPE,  F 1ELD , 

2NAU0LT , AULT , NDATPT 

0010  COMMON  /TCRLIB/THRMID, NTEMP, TEMCAL 

C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

0011  COMMON  /A2C0M/TEMSET  , FLDSET  ,  ULTSET , X0, NTEM,  SCSET  *  SCOUNT , 

2UCOUNT,RUH 
C 
C 

C  LOCAL  UARIABLES 
C 

0012  REAL  D<100),P<100),V0 

0013  INTEGER  NS,  IF 


C  MOW  RESET  SETTINGS  FOR  NEW  DATA  BLOCK 
0014  DATA  FLDSET, SC3ET,V0/0.0, 0,0.0/ 

C 

C  NOW  COMPUTE  THE  UOLTAGE  ON  THE  SILICON  THERMOMETER 
C  THAT  IS  EQUIUILENT  TO  THE  DESIRED  TEMPERATURE 
C 

0015  X8=TEMPCNTEM) 

0016  DO  10  1*1, NTEMP 

0017  1F<X0.LE.TEMCAL<1,I))GO  TO  20 

0019  10  CONTINUE 

C 

0020  20  NS* 1-3 
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0021  1FCNS.LT. 1)NS=1 

0023  NF*l+3 

0024  IF  CIF.  GT .  NTEMP)NF=NTEMP 

C 
C 

0026  Y0=0.0 

002?  DO  30  I=NS,NF 

0028  DCI)=1.0 

0029  PCI)=1.0 

0030  DO  40  J=NS>NF 

0031  1FCI.EQ. J>GO  TO  40 

0033  DCD=Da>*aENCfiLa,  D-TEMCflLCl,  J)> 

0034  PCI)=P(I  )*(X0-TEf1CflLCl>  J» 

0035  40  CONTINUE 

0036  V0=V0+<PCD/DCI))*TEMCALC2>I) 

003?  30  CONTINUE 
0038  NTEM=NTEM+1 

0039  TEMSET=V0 

0040  RETURN 

0041  END 


eeei 


SUBROUTINE  A22 


0002 

0003 


0004 


0005 

0006 

000? 

Woo 


0009 


0010 

0012 

0014 

0016 

0018 

0019 

0020 

0021 


C 


C 

C  MODULE  022 - DETERMINE  FIELD  SETTING 

C 

C  THIS  MODULE  DETERMINES  THE  FIELD  SETTING. 

C  FOUR  COSES  WILL  COUSE  THE  FIELD  TO  BE  SET: 

C  1.  SAMPLE  CONF IGURAT I0N=6  AND  EXPERIMENT  TVPE=1. 

C  2.  SAMPLE  CONFIGURATIONS  AMD  EXPERIMENT  TVPE  =2. 

C  3.  SAMPLE  CONFIGURATION  =6  AND  EXPERIMENT  TVPE=2. 

C  4.  SAMPLE  CONFIGURATION  =3  AND  EXPERIMENT  TVPE  =3. 

C  ALL  OTHER  CASES  CRUSE  THE  FIELD  TO  BE  2ER0. 

C  IF  FIELD  IS  ALREADY  SET  POSITIVE  AND  ONE  OF  THE  ABOUE  FOUR  CASES 
C  ARE  TRUE,  THE  POLARITV  IS  REUERSED. 

C 

c 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHQT ,  JR. ,  USAF 

C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C  DATA  SPECIFICATIONS 

c 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  DATAIN 

INTEGER  ETVPE 

REAL  TEMPU00), FIELD, RULT<2,6> 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 

C 

C  CONS I G 


INTEGER  SDP, EXPC, FSCOM, 3CSC0M, ULTCOM 
C 

C  A2C0M 


INTEGER  NTEM, SCSET , SCOUNT , UCOUNT , RUN 
REAL  TEMSET , FLDSET , ULTSET , X0 
C  TEE  NAMED  COMMON  BLOCKS  FOR  A2CNN  FOLLOW. 

COMMON  /CONS IG/SDP , EXPC , FSCOM, SCSCOM. ULTCOM 
COMMON  /A2C0M/TEMSET, FLDSET , ULTSET , X0, NTEM, SCSET, SCOUNT , 
2UC0UNT ,  RUN 


C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
COMMON  /DATAI N/NTEHPT , TEMP , ETVPE, F IELD , 

2NAU0LT ,  A*>LT ,  NDATPT 
C 
C 

C  TEST  SAMPLE  CONFIGURATION  SETTING 

IF  <SCSET . EQ . 5 . AND . ETVPE. EQ . 2)  GO  TO  10 
IF <SCSET.EQ.6. AND. ETVPE. EQ. 2)  GO  TO  10 
IF<SCSET.EQ.6.AND.ETVPE.Ell.l)  GO  TO  10 
IF (SCSET . EQ.8. AND. ETVPE. EQ. 3)  GO  TO  10 
FLDSET=0 
GO  TO  900 
10  CONTINUE 

IF<FLDSET.EQ.0.0.AND.ULTSET.GT.0.0)GO  TO  900 
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0023 

IFCFLDSET.GT 

0025 

FLDSET=FIELD 

0026 

GO  TO  900 

0027 

100 

CONTINUE 

0028 

FLDSET=-FIELD 

0029 

FSCOM=l 

0030 

900 

CONTINUE 

0031 

RETURN 

0032 

END 
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0001 


SUBROUTINE  023 

cccccccccccccax:ccccccccccccccccccccccccccccccccccccccccccc 
c 

C  MOOULE  023 - DETERMINE  SAMPLE  CONFIGURATION  SETTING 

c 

C  THIS  MOOULE  WILL  DETERMINE  THE  SAMPLE  CONFIGURATION 
C  SETTING.  THE  EXPERIMENT  PARAMETER  DETERMINES  HOW  THE  SAMPLE 
C  CONFIGURATIONS  WILL  BE  SET.  THE  THREE  CHOICES  ARE. 

C 

C  ETVP£=1 - SAMPLE  CONFIGURATIONS  1.2. 3. 4. 5. 6  ARE  SET  IN  TURN. 

C 

C  ETVP£=2 - SAMPLE  CONFIGURATIONS  1,2.5  ARE  SET  FOR  THE  FIRST  AND 

C  EACH  SUCCEEDING  ODD  TEMPERATURE. 

C  - SAMPLE  CONFIGURATIONS  3,4,6  ARE  SET  FOR  THE  SECOND  AND 

C  EACH  SUCCEEDING  E'JEN  TEMPERATURE. 

C 

CC  ETVPE=3 - SANFLE  CONFIGURATIONS  7  AND  8  ARE  SET. 

C 

C  WHEN  ALL  SAMPLE  CONFIGURATIONS  ARE  COMPLETE  THE  SCSCOMCSAMPLE 
C  CONFIGURATIONS  COMPLETE)  SIGNAL  IS  SET  TRUE. 

C 
C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT.  JR. .  USAF 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c  DATA  SPECIFICATIONS 

c 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  DATAIN 
0002  INTEGER  ETVPE 

0003  REAL  TENFUee). FIELD, AULT<2,6) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  R2 

C 

C  CONS I G 

0004  INTEGER  SDP, EXPC, FSCOM, SCSCOM, ULTCOM 

C 

C  A2C0M 

0005  INTEGER  NTEM, SCSET , SCOUNT , UCOUNT , RUN 

0006  REAL  TEMSET , FLDSET , ULTSET , X0 

C  THE  NATED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

0007  COMMON  /CONS IG/SDP , EXPC , FSCOM, SCSCOM, ULTCOM 

0008  COMMON  /A2C0M/TEMSET, FLDSET, ULTSET, X0, NTEM, SCSET, SCOUNT, 

2UC0UNT , RUN 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
0009  COMMON  /DATAIN/NTEMPT, TEMP, ETVPE, FIELD, 

2NAUOLT , AULT , NDATPT 
C 
C 

c 

C  RESET  APPLIED  UOLTAGES  COMPLETE  SIGNAL (ULTCOM) 

C 

0010  DATA  ULTCOM/0/ 
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i 


c 

C  TEST  TO  FIND  THE  EXPERIMENT  TVPE 
C 


0011 

IF (ETYPE. HE. 1 )GO  TO  20 

C 

IF  EXPERIMENT  TVPE  EQUALS  1. 

0013 

IF  <  FLDSET . EQ . 0 . 0 . AND . ULTSET . GT . 0 . 0 . AND . (SCSET .  EQ . ! 
20R.SCSET.EQ.6))  GO  TO  35 

0013 

IF(FLDSET.NE.0.0)GO  TO  10 

0017 

IF (SCOUNT. EQ. 1. OR. SCOUNT. EG. 2) GO  TO  10 

0019 

SCSET =SCSET  + 1 

0020 

IF  <  SCSET . EQ . 6 ) SCOUNT= 1 

0022 

IF (SCSET . EQ . 6 ) SCSCOM® 1 

0024 

GO  TO  900 

C 

NOU  DO  THE  5  AND  6  CONFIGURATIONS  WHEN  THE  FIELD  IS 

0023 

10 

CONTINUE 

0026 

IF(SCSET.EQ.5)G0  TO  11 

0028 

SCSET=5 

0029 

GO  TO  900 

0038 

11 

CONTINUE 

0031 

SCSET =6 

0032 

SCSCOM=l 

0033 

SCOUNT =SCOUNT + 1 

0034 

IF (SCOUNT . GT . 2) SC0UHT=2 

0036 

GO  TO  900 

C 

IF  ETVPE  EQUALS  2 

0037 

20 

CONTINUE 

0038 

IF (ETVPE. NE.2)G0  TO  30 

0040 

IF (FLDSET . EQ . 0 . 0 . AND . ULTSET . GT . 0 . 0 . AND . (SCSET . EQ . ! 
20R.SCSET.EQ.6))  GO  TO  35 

0042 

IF(FLDSET.NE.0.0)GO  TO  35 

0844 

IF (SCOUNT. EQ. 1 )GO  TO  32 

C 

DO  THE  ODD  TEMPERATURE  SAMPLE  CONFIGURATIONS 

0046 

IF (SCSET. EQ. 2) GO  TO  31 

0048 

SCSET =SCSET  + 1 

0049 

GO  TO  900 

0050 

31 

CONTINUE 

0031 

SCSET =5 

0052 

SCQUNT=1 

0053 

SCSCOM=l 

0054 

GO  TO  900 

C 

DO  THE  EUEN  TEMPERATURE  SAMPLE  CONFIGURATIONS 

0055 

32 

CONTINUE 

0056 

IF (SCSET. EQ. 4) GO  TO  33 

0058 

IF (SCSET .  NE .  3 ) SCSET=2 

0060 

SCSET =SCSET+1 

0061 

GO  TO  900 

0062 

33 

CONTINUE 

0063 

SCSET=6 

0064 

SCOUNT =0 

0065 

SCSCOM= 1 

0066 

GO  TO  900 

0067 

35 

CONTINUE 

C 

SET  THE  SCSCON  SIGNAL  TRUE  . 
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0068 

SCSC0H=1 

0069 

GO  TO  900 

C 

IF  ETVPE  EQUALS  3 

0070 

38 

CONTINUE 

0071 

IF  <  FLDSET . EQ. 0 . 0 . AND . ULTSET . GT 

0073 

IF(FLDSET.NE.0.0)GO  TO  40 

0075 

IF<SCSET.NE.7)G0  TO  47 

0077 

SCSET=8 

0078 

SCSC0M=1 

0079 

GO  TO  900 

0080 

47 

CONTINUE 

0081 

SCSET=? 

0082 

GO  TO  900 

0083 

40 

CONTINUE 

0084 

SCSC0M=1 

0085 

C 

GO  TO  900 

C 

Woo 

900 

CONTINUE 

0087 

RETURN 

0088 

END 

GO  TO  35 
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Figure  29.  Flow  Chart  for  Module  A24 
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0001 


SUBROUTINE  024 


0002 

0003 


0004 


0005 

0006 

000? 

0008 


0009 


0010 

0011 

0013 


0014 

0016 

001? 

0018 

0019 

0020 


caxccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  NODULE  024 - DETERMINE  APPLIED  UOLTfiGE  SETTINGS 

c 

C  THIS  MODULE  WILL  DETERMINE  WHOT  UOLTfiGE  WILL  BE 

C  APPLIED  TO  THE  SAMPLE.  NORMALLV  THIS  WILL  BE  ONLY  A  POLARITY 
C  CHANGE.  THE  MAGNITUDE  WILL  ONLY  BE  CHANGED  AT  USER  DESIGNATED 
C  TEMPERATURE  POINTS. 

C 

C 

C  AUTHORS  CAPTAIN  EDGAR  A.  UERCHOT ,  JR.,  USAF 

C 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  DATA  SPECIFICATIONS 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  DATAIN  * 

INTEGER  ETYPE 

REAL  TEMP(100),FIELD,AULT(2,6) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 

C 

C  CONSIG 

INTEGER  SDP, EXPC, FSCOM, SCSCQM, ULTCOM 
C 

C  A2C0M 

INTEGER  NTEM , SCSET , SCOUNT , UCOUNT , RUN 
REAL  TEMSET , FLDSET , ULTSET > X0 
C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

COMMON  /CONS IG/SDP, EXPC, FSCOM, SCSCOM, ULTCOM 
COMMON  /A2C0M/TEMSET , FLDSET , ULTSET , X0, NTEM . SCSET , SCOUNT , 
2UC0UNTjRIJN 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
COMMON  /DATA I N/HTEMPT , TEMP , ETYPE, F I ELD , 

2NAU0LT ,  AULT ,  NDATPT 
C 

c 

C 

C  CHECK  IF  THE  UOLTfiGE  MAGNITUDE  NEEDS  TO  BE  CHANGED 
C 

DO  10  I=1,NAU0LT 

IF  < TEMP (NTEM- 1 ) . GE . AULT (1,1)) ULTSET=AULT (2,1) 

10  CONTINUE 

C  UCOUNT  IS  THE  FLAG  THAT  TELLS  THE  PROGRAM  WHETHER  THE  UOLTfiGE  SHOULD 
C  BE  POSITIUE  OR  NEGATIUE  EACH  PASS  THROUGH  THE  PROGRAM. 

C 

IF(UCOUNT.NE.0)  GO  TO  20 
ULTSET=ABS( ULTSET ) 

UC0UNT=1 
GO  TO  900 
20  CONTINUE 

ULTSET=-ULTSET 
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0021  UCOUNT=0 

0022  ULTC0M=1 

0023  900  CONTINUE 
0024  RETURN 

0025  END 


START  A  3 


0001 


SUBROUTINE  A3 


C 

C  MODULE  03 - SET  PARAMETERS 

C 

C  THIS  MODULE  IS  THE  EXECUTIVE  FOR  SET  PARAMETERS.  IT  CONTROLS 
C  kWICH  MODULES  OPERATE  AND  WHEN  THEV  DO  SO.  SIX  MODULES  ARE 
C  SUBORDINATE  TO  A3: 

C  A31 - CHECK/SET  FIELD 

C  A32 - CHECK/SET  APPLIED  VOLTAGE 

C  A33 - CHECK/SET  SAMPLE  CONFIGURATION 

C  R34 - CHECK/SET  TEMPERATURE 

C  035 - GENERATE  ACQUIRE  DATA  SIGNAL 

C  036 - DELAV  RECHECK 

C  OS  THE  MODULE  EXECUTES,  A31  THROUGH  A34  SET  THEIR  PARAMETER 
C  AND  GENERATE  EITHER  A  SETTLING  TIME  DELAV  OR  A  PARAMETER  OK  SIGNAL. 
C  031,  CHECK/SET  FIELD  IS  THE  LAST  TO  SET  ITS  PARAMETER  BECAUSE 
C  IT  WILL  AFFECT  THE  OTHER  PARAMETERS  IF  THE  FIELD  IS  ON. 

C  THE  GENERATE  AGUIRE  DATA  SIGNAL  NODULE  THEN  CHECKS  ALL  OF  THE 
C  POROMETER  OK  SIGNAL  IS  GENERATED.  IF  NOT  CONTROL  PASSES  BACK 
C  TO  DELflV  RECHECK,  WHICH  PASSES  CONTROL  BACK  TO  THE  TOP  OF  THE 
C  CHECK/SET  LOOP  AFTER  DELAYING  FOR  THE  LONGEST  OF  THE  ESTIMATED 
C  SETTLING  TIMES  THAT  WERE  GENERATED. 

C 

C 

C  AUTHOR*.  CAPTAIN  EDGAR  A.  VERCHOT,  JR.  USFF 

C 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  DATA  SPECIFICATIONS 

c 

C  THESE  ORE  THE  DATA  SPECIFICATIONS  FROM  MODULE  01 
C  EQPOUT 

0802  BYTE  EQUIPF<10,8) 

0003  INTEGER  1EI0F,E0FLAGC7> 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C  02C0M 

0004  INTEGER  NTEM , SCSET , SCOUNT , VCOUNT , RUN 

0005  REAL  TEMSET , FLDSET , VLTSET , X0 

C  THESE  ORE  THE  DATA  SPECIFICATIONS  FOR  03 
0006  INTEGER  VLTAGE,TSTCON, MAGNET 

C  03C0M 

0007  INTEGER  FDELAY ,  SAM « FLDQK ,  TEMOK.  VLTQK.  SBMGK, 

2VDEL0V, SDELAV, TDELAV, DELAY 
C  GOUSSM 

0008  REAL  FLDRD 

C  DVMCOM 

0009  INTEGER  FUNC 

0010  REAL  TEMRD,VLTRD 

C  TSTCOM 

0011  INTEGER  SIGN 

C  THESE  ARE  THE  C0M10N  BLOCKS  FROM  MODULE  01 
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8012 


COMMON  /EQPOUT /EOFLAG ,  EGEU I PF ,  IEIOF 
C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

0813  COMMON  /A2CGN/TEMSET , FLDSET ,  'JLTSET , X0, NTEM, SCSET , SCOUNT 

2UC0UNT  j  RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLOW 

0814  COMMON  /A3C0M/FDELAY  ,  UDELAY ,  SDELAY,  TDELAY, DELAY , FLD,  ULT 

2TEM,  FLDOK,  TEMOK,  ULTOK,  SAMOK,  SAM 

8815  COMMON  /DMMCOM/CRNTRD 

8816  COMMON  /GAUSSM/FLDRD 

881?  COMMON  /DUMCOM/FUNC  ,  TEMRD » ULTRD 

C 
C 

0818  DATA  FLDOK,  TEMGK,ULTOK,SAMOK/0, 0,0,0/ 

0819  IF<EOFLAG(2).NE.0>GQ  TO  10 

0821  A=OUM<0> 

0822  10  CONTINUE 

C  START  OCCKING  THE  PARAMETERS 
C  UOLTAGE 

8823  CALL  A32 

C  SAMPLE  CONFIGURATION 

8824  CALL  R33 
C  TEMPERATURE 

8825  40  CONTINUE 

8026  CALL  A34 

C  FIELD 

082?  12  CONTINUE 

0028  CALL  A31 

C  NOW  CHECK  TO  SEE  OF  ALL  PARAMETERS  ARE  SET  OK 
C 

0029  50  CONTINUE 

0030  CALL  A35 

0031  IF ( DELAY . EG . 0 ) GO  TO  900 

C  DELAY  RECHECK 
0033  CALL  A36-:DELAY) 

0034  900  CONTINUE 

0035  RETURN 

8036  END 


8001 


SUBROUTINE  A31 


C 

C  NODULE  R31 - CHECK/SET  FIELD 

C 

C  THIS  MODULE  PASSES  THE  FIELD  SETTING  TO  THE  STEPPER 
C  MOTOR  DRIUER  PROGRAM  UHICH  CONTROLS  THE  SETTING  OF 
C  THE  MAGNET.  IT  RECEIVES  BACK  AH  ANTICIPATED  DELAV  AND  A 
C  FIELD  OK  SIGNAL.  IF  THE  GAUSSMETER  OR  THE  MAGNET  CONTROL 
C  EQUIPMENT  OUT  FLAG  IS  SET  INPUT  FROM  THE  TERMINAL  IS 
C  REQUIRED  TO  GET  THE  PROPER  SETTING. 

C 

C 

C  AUTHORS  CAPTAIN  EDGAR  A.  UERCHOT,  JR.  USAF 

C 

c  _ 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCXCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  DATA  SPECIFICATIONS 

c 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  EQPOUT 

0002  BVTE  EGUIPFaO,3> 

0003  INTEGER  IEIOF . EOFLAG<?) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C  R2C0M 

0004  INTECER  NTEM, SCSET, SCOUNT , UCOUNT, RUN 

0005  REAL  TEMSET , FLDSET , ULTSET ,  X0 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
0006  INTEGER  ULT AGE, TSTCON, MAGNET 

C  A3C0M 

000?  INTEGER  FDELAV  >  SAM  ,  FLDOK >  TEMOK » ULTQK « SAMOK. 

2UDELAV,  SDELAVj  TDELAY. DELAY 
C  GAUSSM 

0008  REAL  FLDRD 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
0009  COMMON  /EQPOUT/EOFLAG.EQUIPF.  IEIOF 

C  THE  NAMED  COMMON  BLOCKS  FOR  A2CHN  FOLLOW. 

0010  COMMON  /A2CQM/TEMSET .  FLDSET ,  ULT SET . X0 . NTEM .  SCSET .  SCOUNT . 

2UC0UNT.RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLOW 

0011  COMMON  /A3C0M/ FDELAV . UDELRY , SDELAY . TDELAV , DELAY. FLD . ULT , 

2TEM.  FLDOK  >  TEMOK  >  VLTOK,  SAMOK,  SAN 
0012  COMION  /GAUSSM/FLDRD 

C 

C  CHECK  EQUIPMENT  OUT  FLAGS 
0013  IF<E0FLAG(5).EQ. 1)  GO  TO  18 

C  SET  THE  FIELD  AUTOMATICALLY  BV  CALLING  MAGNET 
C  IF  THE  PREVIOUS  SETTING  AND  THE  NEW  SETTING  ARE  THE  SAME  DON'T 
C  BOTHER  TO  CALL  MAGNET. 

0015  IF CFLD.EQ. FLDSET) GO  TO  20 

0017  FLDOK=MAGNET< FLDSET, FLD) 

C  DELAY  IS  EQUAL  TO  2  SECONDS  PER  KGAUSS  SETTING 
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0018 

IF(FLDOK.NE. 1 )FDELAV=5 

0020 

GO  TO  21 

0021 

10 

CONTINUE 

0022 

IF  CFLD . EQ . FLDSET )  GO  TO  20 

0024 

UR1TE<?>1000)  FLDSET  j 

0025 

1000 

FORMAT <x  SET  THE  MAGNET  TO  '.G14.7,'  KGAUSS  V  | 

1  '  CARRIAGE  RETURN  WHEN  SET 


0026  PAUSE 

C  IF  FIELD  IS  MANUAL  ZERO  ALL  OF  THE  DELAYS.  THEY  Mil  l  NOT 
C  BE  NEEDED 


0027 

FDELAY=0 

0028 

SDELAY=0 

0029 

TDELAY=0 

0030 

UDELAV=0 

0031 

20 

CONTINUE 

0032 

FLDClK=  1 

0033 

FDELAY=0 

0034 

21 

CONTINUE 

0035 

FLD=FLDSET 

0036 

900 

CONTINUE 

0037 

RETURN 

0038 

END 

Figure  32.  Flow  Chart  for  Module  A32 


0001 


SUBROUTINE  A32 


0002 

0003 

OwH 

0005 

0006 

000? 

0008 

0010 

0011 

0012 

0013 

0014 

0015 


C 

C  MODULE  832 - CHECK/SET  APPLIED  VOLTAGE 

C 

C  THIS  MODULE  C8LLS  THE  DRIVER  PROGRAM  FOR  THE  POWER  SUPPLV 
C  WHICH  SETS  THE  APPLIED  VOLTAGE  TO  THE  SAMPLE.  THIS  VALUE  IS 
C  CROSS  CHECKED  FOR  ACCURACY  ON  THE  DIGITAL  VOLTMETER.  IF 
C  THE  DUM  EQUIPf'ENT  OtJT  FLAG  IS  SET  THE  APPLIED  VOLTAGE  READING  IS 
C  ASSUMED  TO  BE  VLTSET.  THIS  IS  A  GOOD  ASSUMPTION  BECAUSE  THIS 
C  VALUE  RELATIVELY  STABLE.  IF  THE  POWER  SUPPLV  IS  INOPERATIVE 
C  THE  OPERATOR  IS  REQUIRED  TO  MAKE  THE  SETTING  BY  A  MESSAGE  TO  THE 
C  TERMINAL. 

C 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT,  JR.,  USAF 

C 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  DATA  SPECIFICATIONS 

c 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  EQPOUT 

BYTE  EQUIPF(10,3) 

INTEGER  IEI0F,EQFLAG<?> 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C  A2CGM 

INTEGER  NTEM, SCSET , SCOUNT , VCOUNT , RUN 
REAL  TEMSET , FLDSET , VLTSET , X0 
C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
INTEGER  VLTAGE, TSTCON, MAGNET 
C  A3C0M 

INTEGER  FDELAV, SAM, FLDOK, TEMOK, VLTOK, SAMOK, 

2VDELAY, SDELAY, TDELAV, DELAV 

c  Dvncort 

INTEGER  FUNC 
REAL  TEMPO, VLTRD 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
COMMON  ^EQPOUT -  EOF LAG, EQUIPF. IEIGF 
C  THE  NAMED  COMMON  BLOCKS  FOR  A2CNN  FOLLOW. 

COMMON  /A2C0M/TEMSET , FLDSET , VLTSET , X0, NTEM, SCSET , SCOUNT , 

2UCOUNT , RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLOW 

COMMON  /A3C0M/FDELAY , VDELAV , SDELAY , TDELAY , DELAY , FLD , VLT , 

2TEM, FLDOK, TEMOK, VLTOK, SAMOK, SAM 
COMMON  /DUMCOM/FUNC , TEMRD , VLTRD 
C 

c 

c 

10  CONTINUE 

C  CHECK  THE  EQUIPMENT  OUT  FLAG  FOR  THE  DIGITAL  VOLTMETER 
IF(E0FLAG(2).EG.l)  GO  TO  500 
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C  CHECK  THEUOLTFlGE  AGAINST  THE  UQLTAGE  SETTING 


0017 

ULTRD=OUN(l) 

C  CHECK  TO  SEE  IF  THE  POWER  SUPPLV  IS  GPERATIUE 

0018 

IF(E0FLAG(4).EQ. 1)  GO  TO  600 

0020 

<JLT=ABS  (ULTSET) 

0021 

IFCJLTRD.NE.'JLT)  OLT QK=ULT AGE ( OLT ) 

0023 

ODELAV=0 

0024 

GO  TO  900 

0025 

500 

CONTINUE 

0026 

IFCE0FLAGC4).EQ.l)  GO  TO  600 

0028 

IF CULT. NE . ABSCULTSET ) )  ULT0K=ULT AGE CULT) 

0030 

GO  TO  900 

0031 

600 

CONTINUE 

0032 

IF  CULT. EQ. ABSCULTSET ) )  GO  TO  20 

0034 

WRITE C7< 1000)  ULTSET 

0035 

1000 

FORMAT < "  PLEASE  SET  ' ,G 14.7,'  UQLTS'. 

1  "  CARRIAGE  RETURN  WHEN  SET",*) 

0036 

PAUSE 

0037 

20 

CONTINUE 

0038 

UDELAV=0 

0039 

FDELA7=0 

0040 

ULTOK=l 

0041 

ULT=ABS  C  ULTSET ) 

0042 

900 

CONTINUE 

0043 

RETURN 

0044 

END 
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Figure  33.  Flow  Chart  for  Module  A33 
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0001 


SUBROUTINE  fl33 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  MODULE  033 - CHECK/SET  SAMPLE  CONFIGURATION 

c 

C  THIS  MODULE  CALLS  THE  DRIUER  SUBPROGRAM  FOR  THE  TEST  CONTROLLER 
C  WHICH  SETS  THE  SAMPLE  CONFIGURATION.  THE  POLARITV  OF  THE  APPLIED 
C  UOLTAGE  IS  ALSO  SET  HERE  ON  THE  TEST  CONTROLLER.  IF  THE  TEST 
C  CONTROLLER  IS  INOPERATI'JE.  A  MANUAL  SETTING  IS  REQUESTED  ON  THE 
C  TERMINAL.  THE  PROGRAM.  THEN  SETS  THE  SETTLING  DELAV  TIME. 

C 
C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT.  JR. .  USAF 

C 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  DATA  SPECIFICATION 

c 
c 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  EQPOUT 
0002  BVTE  EGUIPF<10.8) 

0003  INTEGER  IEI0F,E0FLAG<7> 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 

C  A2C0M 

0004  INTEGER  NT EM. SCSET . SCOUNT . UCOUNT . RUN 

0005  REAL  TEMSET . FLDSET . ULTSET . X0 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
0006  INTEGER  ULTAGE.TSTCON. MAGNET 

C  A3COM 

0007  INTEGER  FDELAV . SAN . FLDOK . TEMOK ,  ULTOK . SANOK. 

2UDELAV. SDELAV . TDELAV . DELAV 
C  TSTCOM 

0008  INTEGER  SIGN 

C  RAUDAT 

0009  REAL  TEMDAT <20) .  ULTDRTC20) .  SUDATAC20) .  FLDATAC20> .  IDATA<20) 

0010  INTEGER  SCDATAC20) 

001 1  COMMON  /RAUDAT /TEMDAT . ULTDAT . SUDATA. FLDATA. IDATA. SCDATA 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
0012  COMMON  /EQPOUT/EOFLAG.EQUIPF. IEIOF 

C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOU. 

0013  COMMON  /A2C0M/TEMSET . FLDSET . ULTSET . XO. NT EM. SCSET . SCOUNT . 

2UCOUNT . RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLOU 

0014  COMMON  /A3C0M/FDELAV . UDELAV . SDELAV. TDELAV . DELAV. FLD. ULT « 

2TEM. FLDOK. TEMOK. ULTGK. SAMOK. SAM 
C 
C 

c 

C 

C  CHECK  POLARITV 

0015  IF<ULTSET.LT.0.0)GO  TO  20 


0817 

SIGN=0 

0018 

GO  TO  25 

0019 

28 

CONTINUE 

0020 

SIGN=1 

0021 

25 

CONTINUE 

C 

CHECK  EQUIPt'ENT  OUT  FLAG 

0022 

IF<E0FLAG<6).EQ.l)  GO  TO  500 

C  SET 

THE  TEST  CONTROLLER 

0024 

SANOK=TSTCON<SCSET  .SIGN) 

C  SET 

THE  DELRV  UfiLUE 

0025 

IF < IDATACRUN- 1 ) . GT . 5. 0E-8) GO  TO  10 

002? 

SDELAV=25 

0028 

GO  TO  900 

0029 

10 

CONTINUE 

0038 

SDELRV=5 

0031 

GO  TO  900 

0032 

500 

CONTINUE 

0033 

IF<SIGN.LT.t)  GO  TO  30 

0035 

GO  TO  35 

0036 

30 

CONTINUE 

0037 

SAM=-SCSET 

0038 

35 

CONTINUE 

0039 

SAM=SCSET 

0040 

URITEC7.5000)  SAN 

0041 

5000 

'  FORMAT < '  SET  THE  TEST  CONTROLLER 

1  SAMPLE  CONFIGURATION 

2  "  CARRIAGE  RETURN  WHEN  SET 

0042 

PAUSE 

0043 

SAMOK=l 

0044 

SDELAV=0 

0045 

UDELAV=0 

0046 

FDELAV=0 

004? 

900 

CONTINUE 

0048 

RETURN 

0049 

END 
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0001 


SUBROUTINE  R34 


0002 

0003 

0004 

0005 

0006 

0007 

*%*%*%** 

WUo 

0009 

0010 

0011 

0012 

0013 


0014 


0016 

0017 


C 

C  MODULE  R34 - CHECK/SET  TEMPERATURE 

C 

C  THIS  NODULE  WILL  SET  THE  HEATER  UOLTAGE  ON  THE  HEATER 
C  POWER  SUPPLV  TO  THE  PROPER  UALUE  TO  STABILIZE  THE  SAMPLE 
C  AT  THE  DESIRED  STEAOV  STATE  TEMPERATURE.  IF  THE  EQUIPMENT 
C  OUT  FLAG  IS  SET,  A  MESSAGE  WILL  DIRECT  THE  OPERATOR  TO  SET  THE 
C  TEMPERATURE  TO  THE  PROPER  SETTING. 


C 

C  AUTHORS  CAPTAIN  EDGAR  A.  UERCHOT,  JR. ,  USAF 

C 


c 

C  DATA  SPECIFICRIONS 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  R1 
C  EQPOUT 


BVTE  EQUIPF(10,3) 


INTEGER  IE  I  OF , EQFLAG<  7 ) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C  A2C0M 


INTEGER  NTEM , SCSET , SCOUHT , UCOUNT , RUN 
REAL  TEMSET , FLDSET , ULTSET ,  X0 
C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
INTEGER  ULTAGE , TSTCON , MAGNET 
C  A3CON 


INTEGER  FDELAV , SAM , FLDOK , T EMOK , ULTOK,SAMOK, 

2UDELAV ,  SDELAV .  TDELAV , DEL AY 
C  DUMCOM 

INTEGER  FUNC 
REAL  TEMRD , ULTRD 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
COMMON  /EQPOUT/EOFLAG , EQU IFF, IE I OF 
C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

COMMON  /A2C0M/TEMSET , FLDSET ,  'JLTSET , X0 , NTEM, SCSET , SCOUNT , 

2UCOUNT , RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLOW 

COMMON  /A3C0M/FDELAV, '.'DELAY, SDEL AY, TDELAV, DELAY, FLD,ULT, 

2TEM, FLDOK , TEMOK, ULTOK, SAMOK, SAM 
COMMON  /DUNCOM/FUNC , TEMRD , ULTRD 
C 

c 

c 

C  CHECK  EQUIPMENT  OUT  FLAG 

IFCE0FLAG(3).EQ.l)  GO  TO  500 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  THE  HEATER  CONTROL  DOES  NOT  EXIST  YET.  WILL  BE  PLACED  HERE 
C  IN  PROGRAM  WHEN  IMPLEMENTED. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
500  CONTINUE 

IF(RUN.NE. l.AND.RIJN.NE. 6.AND.RUN.NE. ll.AND.RUN.NE. 16)  GO  TO  10 
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0019 

URITE<?,5000>  TEMSET 

0020 

5000 

FORMAT < 7  ','  SET  THE  TEMPERATURE  AS  READ  BY  THE 

SILICON 

1  '  THERMOMETER  TO  APPROXIMATELY', G14. 7, ' 

2  '  CARRIAGE  RETURN  WHEN  SET',*) 

UOLTS'/ 

0021 

PAUSE 

C  SET  THE  DELAYS  TO  ZERO  IF  TEMPERATURE  IS  RESET  MANUALLY 

0022 

TDELAV=0 

0023 

FDELAY=0 

0024 

SDELAV=0 

0025 

UDELAV=0 

0026 

10 

CONTINUE 

002? 

TEMOK»l 

0028 

900 

CONTINUE 

0029 

RETURN 

0030 

END 

Figure  35.  Flow  Chart  for  Module  A35 
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0001 


SUBROUTINE  035 


C  MODULE  035 - GENERATE  RQUIRE  DflTO  SIGNAL 

C 

C  THIS  MODULE  CHECKS  ALL  OF  THE  PARAMETER  OK  SIGNALS 
C  AND  IF  ALL  ARE  TRUE,  GENERATES  THE  START  DATA  ACQUISITION 
C  SIGNAL.  IF  ALL  ARE  NOT  TRUE,  IT  CALLS  THE  DELAV  RECHECK 
C  MODULE. 

C 

c  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT,  JR.  USFF 

C 

c _ 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  DATA  SPECC-  IF  I  CAT  IONS 
C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
C  R3C0M 

0002  INTEGER  FDELAV , SAM, FLDOK , TEMOK, ULTOK, SRMOK, 

2UDELAV , SDELAV , TDELAV , DELAV 
_  C  THE  COMMON  BLOCKS  FOR  A3  FOLLOU 

0003  COMMON  /A3C0M,'FDELAV , UDELAV , SDELAV , TDELAV , DELAV , FLD , ULT , 

2TEM, FLDOK, TEMOK, ULTOK , SAMOK , SAM 

C 

C  USE  A3 COM 

C  CHECK  ALL  OF  THE  PARAMETER  OK  SIGNALS 
0004  IF (FDELAV .NE.O.AND. UDELAV . NE. 0 . AND . SDELAV .  hE . 0. Ah© . TDELAV . NE . 0) 

l  GO  TO  50© 

C  SET  THE  DELAV 

0006  IFCTDELAV.GT. FDELAV) GO  TO  10 

0008  DELAV=FDELAV 

0009  GO  TO  20 

0010  10  CONTINUE 

0011  DELAV=TDELAV 

0012  20  CONTINUE 

0013  1FCSDELAV.GT. DELAV)  DELAV=SDELAV 

0015  IFCUDELAV.GT. DELAV)  DELAV=UDELAy 

001?  GO  TO  900 

0018  500  CONTINUE 

0019  DELAV =5 

0020  900  CONTINUE 

C  RESET  THE  DELAV  VALUES  TO  ZERO 
0021  SDELAV=8 

0022  TDELAY=0 

0023  UDELAV=0 

0024  FDELAV=0 

0025  RETURN 

0026  END 
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Figure  36.  Flow  Chart  for  Module  A36 
133 


00*1 


SUBROUTINE  A36 (DELAY) 

cccxxccccccccccccccccccccccccccccccccccccccccccgjrayrrjxncccccc 

w 

C  NODULE  A36 - DELAY  RECHECK 

C 

C  THIS  MODULE  IS  CALLED  TO  DELflV  THE  RECHECKING  OF  PARAMETERS. 
C  IF  SIMPLV  WAITS  FOR  THEHUMBER  OF  SECONDS  SPECIFIED  BV  THE  DELAY 
C  PARAMETER  BEFORE  RETURNING. 

C 


C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOTi  JR. ,  USflF 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCaCCCCCCCCCCCCCCCCCCCCCCCCC 


0002  INTEGER  DELAY 

C  CONUERT  DELAY  TO  MINUTES  AND  SECONDS 
0003  M=DELBV/60 

0004  IS=DELAV-60+M 

C  NOW  DELAY 

0005  I=ia£EP<0,M,IS,0) 

0006  IF(I.NE.0)GO  TO  300 

0000  GO  TO  900 

0009  800  CONTINUE 

0010  WRITE<?,8000) 

0011  8000  FORMAT < '  ISLEEP  IN  THE  A36  MODULE  FAILED') 

0012  900  CONTINUE 

0013  RETURN 

0014  END 
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0001  SUBROUTINE  A4 

CCCCCC£CCCCOXCCCCCCC(XCCCCCCCCCCCCC£CrcCCCCCCCtXCCCCCCCCCCCC 

c 

C  MODULE  A4 - ACQUIRE  DATA 

c 

C  MODULE  A4  IS  THE  EXECUTUJE  FOR  ACQUIRE  DATA.  IT  CALLS 
C  FOUR  SUBORDINATE  MODULES: 

C  A41 - READ  TEMPERATURE 

C  A42 - READ  CURRENT 

C  A43 - READ  APPLIED  AND  SAMPLE  UQLTAGE 

C  A45 - READ  FIELD 

C  (A44  WAS  DELETED  INTENT IONALLV  BECAUSE  IT  WAS  TRIUIAL) 

C  EACH  OF  THESE  MODULES  READS  THE  DESIRED  PARAMETERS)  FROM  THE 
C  APPROPRIATE  DRIUER  SUBROUT INECS)  AND  RETURNS  THE  DATA  TO  A4. 

C  A4  THEN  PASSES  IT  BACK  AND  GENERATES  THE  DATA  ACQUISITION 
C  COMPLETE  SIGNAL  IF  THE  FIELD  IS  CiN,  THE  MODULE  SKIPS  A41  UNTIL 
C  AFTER  A45.  IT  THEN  TURNS  THE  FIELD  OFF  AND  READS  THE 
C  TEMPERATURE. 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHGT ,  JR.,  USAF 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  DATA  SPECIFICATIONS 

C  TKESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  Al 
C  EQPOUT 

0002  BVTE  EQUIPF<10,8) 

0003  INTEGER  IEI0F,EGFLAG<7) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 

C 

C  A2C0M 

0004  INTEGER  NTEM,SCSET,SCOUNT,UCOUNT,RUN 

0005  REAL  TEMSET , FLDSET , ULTSET , X0 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
0006  INTEGER  ULTAGE,TSTCON, MAGNET 

C  A3C0M 

0007  INTEGER  FDELAV, SAM,FLDOK, TEMOK, ULTOK, SAMOK, 

2UDELAV,SDELAV, TDELAV, DELAY 
C  DUMCOM 

0008  INTEGER  FUNC 

0009  REAL  TEMRD,ULTRD 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A4 
C  RAUDAT 

0010  REAL  TEMDAT<20) , ULTDAT <20) ,  SUDATAC20) , FLDATAC20) ,  IDATAC20) 

0011  INTEGER  SCDATAC20) 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  Al 
0012  COMMON  /EQPOUT/EQFLAGiEQUIPF, IEIOF 

C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

0013  COMMON  /A2C0M/TEMSET , FLDSET , ULTSET , X0, NTEM, SCSET , SCOUNT , 

2UC0UNT , RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLOW 

0014  COMMON  /A3C0M/FDELAV ,  UDEL AY ,  SDELAV ,  TDELAV ,  DELAY ,  FLD ,  'JLT , 

2TEM,  FLDOK,  TEMOK,  ULTOK ,  SAMOK,  SAM 
COMMON  /DUNCOM/FUNC,  TEMRD,  ULTRD 


0015 


0016 


001? 

0019 

0020 

0021 

0023 

0024 

002S 

0026 

002? 

0029 

0030 

0032 

0033 

0035 

0036 

003? 


C  THE  COMMON  BLOCKS  FOR  A4  FOLLOW 

COMMON  /RRUDAT/'TEMDAT ,  ULTDAT ,  SUDATA,  FLDATAj  IDHTfl,  SCDATA 
C 
C 

c 

C  NOW  READ  THE  TEMPERATURE 

IFCFLDSET.NE.0.0)GO  TO  20 
10  CONTINUE 

CALL  A41 

IF<FLDSET.HE.0.0)  GO  TO  900 
C  READ  THE  CURRENT 
20  CONTINUE 

CALL  A42 

C  READ  THE  APPLIED  AND  SAMPLE  UOLTAGES 

CRLL  fl43 

C  READ  THE  SAMPLE  CONFIGURATION 

SCDATA<RUM)=SCSET 

IF CULTSET . LT . 0 . 0 ) SCDATACRUN) =-SCDATACRUN) 

C  READ  THE  FIELD 

CALL  A45 

C  SET  THE  FIELD  TO  ZERO  IF  NECESSRRV  TO  READ  THERMOMETER 

IF<FLDSET.EQ.0.0)GO  TO  900 
I=MAGNET  <0 . 0  j  FLD ) 

IF<FLDSET.NE.0.0)GO  TO  10 
900  CONTINUE 
RETURN 
END 
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SUBROUTINE  A41 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  MODULE  R41 - READ  TEMPERATURE 

c 

C  THIS  MOOULE  READS  THE  UOLTAGE  OF  THE  SILICON  THERMOMETER  FROM 
C  THE  DIGITAL  VOLTMETER. 

C  IF  THE  DUM  IS  INOPERATIVE  IT  REQUESTS  THE  VALUE  FROM  THE 
C  OPERATOR  ON  THE  TERMINAL. 

C 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT,  JR. ,  USAF 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  DATA  SPECIFICATIONS 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  EQPOUT 

BYTE  EQUIPF<10,9) 

INTEGER  IEIOF ,EOFLAG(?) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C 

C  A2COM 

INTEGER  NTEMj  SCSET ,  SCOUNT ,  'JCOUNT ,  RUN 
REAL  TEMSET , FLDSET , VLTSET , X0 
C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
INTEGER  VLTAGE, TSTCON,  MAGNET 
C  DUMCOM 

INTEGER  FUNC 
REAL  TEMRD,»JLTRD 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A4 
C  RAUDAT 

REAL  TEMDAT <20) , VLTDAT <20) , SVDATA(20> > FLDATAC20) , IDATAC20) 

INTEGER  SCDATAC20) 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
COMMON  /EQPOUT  /'EOFLAGi  EQU IPF  ,  IE  I  OF 
C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOU. 

COMMON  /A2COM/TEMSET , FLDSET , VLTSET, X0 , NTEM, SCSET , SCOUNT , 

2VCOUNT , RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLOU 

COMMON  /DVNCGM/FUNC , TEMRD , VLTRD 
C  THE  COMMON  BLOCKS  FOR  A4  FOLLOU 

COMMON  /RAUDAT/ TEND AT , VLTDAT , SVDATA, FLOAT A, IDATA,  SCDATA 
C 

C  CHECK  IF  DUM  IS  OPERATIVE 

IF(E0FLAG<2).EG.2)  GO  TO  20 
C  INTERROGATE  THE  DVM  TO  DETERMINE  TEMPERATURE 
TEMRD=DVM<3) 

TEMDAT CRUN)=TEMRD 
GO  TO  900 
20  CONTINUE 

WRITE(7,2000) 

2000  FORMAT <'  ENTER  THE  CURRENT  UOLTAGE  READING  ON  THE 

2SILICON  THERMOMETER  ') 


139 


0023  REMX5,*>  TEMDftT <RUN> 

0024  900  CONTINUE 
0023  RETURN 

0026  END 


f 
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0001 


SUBROUTINE  A42 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

C  MOOULE  A42 - READ  CURRENT 

C 

C  THIS  MODULE  READS  THE  SAMPLE  CURRENT  FROM  THE  ELECTROMETER. 
C  IF  THE  DMM(ELECTRQMETER)  IS  INOPERATIUE,  IT  REQUESTS  THE 
C  OPERATOR  TO  ENTER  THE  UALUE  ON  THE  TERMINAL. 

C 
C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT,  JR. ,  USAF 

C 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c  THESE  ARE  TIC  DATA  SPECIFICATIONS  FROM  NODULE  A1 
C  EQPOUT 
0002  BYTE  EQUIPF<10,8> 

0003  INTEGER  IE  I  OF  j  EQFLAGC7  ) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C 

C  A2CQM 

0004  INTEGER  NTEM, SCSET  ,  SCOUNT  >  UCOUNT  > RUN 

0005  REAL  TEMSET , FLDSET , ULTSET , K0 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
0006  INTEGER  ULTAGE,  TSTCQN, MAGNET 

C  DMMCOM 

MA7  DCM  roMTCfi 

C  THESE  ARE  THE  DATA  SPECIFICATION  FOR  A4 
C  RAUDAT 

0008  REAL  TEMDAT <28) ,ULTDAT (20) >  SUDATAC20), FLDATA<20) > IDATA<20) 

0009  INTEGER  SCDATA<20) 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
0010  COMMON  /ECPOUT /EOFLAG, EQUIPF ,  IE  IGF 

C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMH  FOLLOW. 

001 1  COMMON  /A2C0M/TEMSET , FLDSET < ULTSET , K0- NTEM. SCSET , SCOUNT , 

2UC0UNT  j  RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLOW 
0012  COMMON  /DMMCOM/CRNTRD 

C  THE  COMMON  BLOCKS  FOR  A4  FOLLOW 

0013  COMMON  /RAUDAT /TEMDAT ,  ULTDAT ,  SUDATA,  FLDATA,  IDATA,  SCDATA 

C 

C  CHECK  IF  THE  ELECTROMETER  IS  1HOPERAT IUE 
0014  IFCEOFLAGCD.EQ.  l)GO  TO  10 

0016  CRNTRD=DMMCC) 

001?  IDATA(RUN) =CRNTRD 

0018  GO  TO  908 

0019  10  CONTINUE 

C  GET  THE  UAL  LG  OF  CURRENT  IF  THE  DMM  IS  INOPERATIUE 

0020  WRITE'.?,  1008) 

0021  1000  FORMAT <'  ENTER  THE  SAMPLE  CURRENT  ') 

0022  R£AD(5,*>  IDATA<RUN) 

0023  900  CONTINUE 

0024  RETURN 
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0001 


SUBROUTINE  043 

(XCCCCCCCCCCCCCtXCCCCCCC(XCCCCCCCCC(XCCa:CCC(XCCCCCCCCCCCCCCCCCCCCCC 

c 

C  MODULE  043 - READ  APPLIED  AND  SAMPLE  UOLTAGE 

c 

C  THIS  MODULE  READS  THE  APPLIED  UOLTAGE  AND  THE  SAMPLE 
C  UOLTAGE  FROM  THE  DIGITAL  UOLTMETER.  IF  THE  DUM  IS  1NGPERAT IUE 
C  THE  MODULE  REQUESTS  THE  OPERATOR  TO  INPUT  THE  UOLTAGE  READINGS 
C  FROM  THE  TERMINAL 
C 
C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT,JR.,  USAF 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  EQPOUT 
0002  BVTE  EQUIPF<10,8) 

0003  INTEffiR  IEIOFi E0FLBG<7) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 

C 

C  R2C0M 

0004  INTEGER  NTEM , SCSET , SCOUNT , UCOUNT , RUN 

0005  REAL  TEMSET  j  FLDSET  j  ULTSET , X0 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
C  DUMCOM 

0006  INTEGER  FUNC 

0007  REAL  TEMRDjULTRD 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A4 
C  RAUDAT 

0008  REAL  TEMDAT<20) ,  ULTDAT (20) , SUDATA(20> , FLDATA<20) ,  IDATAC20) 

0009  INTEGER  SCDATAC20) 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
0010  COMMON  /EQPOUT/EOFLAG.EQUIPF.IEIOF 

C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOU. 

0011  COMMON  /A2C0M/TEMSET , FLDSET , ULTSET ,  V&t NTEM<  SCSET  j  SCOUNT » 

2UC0UNT  j  RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLOU 
0012  COMMON  /D'JMCOM/FUHC,  TEMRD ,  ULTRD 

C  THE  COMMON  BLOCKS  FOR  A4  FOLLOU 

0013  COMMON  /RAUDAT/TEMDAT , ULTDAT , SUDATA, FLDATA, IDATA, SCDATA 

C 

C  CHECK  TO  SEE  IF  THE  DUM  IS  OPERATIUE 
0014  IF (E0FLAGC2) . EQ . 1 ) GO  TO  10 

C  READ  THE  APPLIED  UOLTAGE 
0016  ULTRD=DUNC1 > 

0017  ULTDAT <RUN)=ULTRD 

C  NOW  READ  THE  SAMPLE  UOLTAGE 
0018  ULTRD=DUM(2) 

0019  SUDATACRUN)=ULTRD 

0020  GO  TO  900 

0021  10  CONTINUE 

C  HAUE  THE  OPERATOR  ENTER  THE  REQUIRED  UALUES 
0022  URITEC7/ 1000) 
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0023  1000  FORMAT <'  ENTER  THE  APPLIED  UGLTAGE  READING  ') 

0024  READCSj*)  ULTDAT(RUN) 

0023  URITE<7i2000) 

0026  2000  FORMAT ENTER  THE  SAMPLE  UGLTAGE  READING  'i 
0027  READ<5i*)  SUDATA(RUN) 

0028  900  CONTINUE 
0029  RETURN 

0038  END 
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START  A  45 


0001 


SUBROUTINE  045 


C 

C  NODULE  R45 - REND  FIELD 

C 

C  THIS  MODULE  CALLS  GAUSS  TO  DETERMINE  THE  FIELD  UALUE. 

C  GAUSS  IS  A  DRIUER  ROUTINE  FOR  READING  THE  GAUSSNETER.  IF 
C  THE  GAUSS  METER  IS  INOPERATIUE  THE  MODULE  ASSUMES  THAT 
C  THE  SETTING  IS  THE  CORRECT  UALUE.  THIS  IS  A  LOU  RISK 
C  ASSUMPTION  BECAUSE  UITHOUT  THE  GAUSSMETER  THE  FIELD  UILL 
C  HRUE  BEEN  MANUALLY  SET  TO  THE  PROPER  UALUE  AND  THE  MAGNET 
C  IS  UERV  STABLE. 

C 

c 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHGT,  JR. .  USAF 

C 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  DATA  SPECIFICATIONS 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  R1 
C  EQPOUT 

0002  BYTE  EQUIPF(10,3) 

0003  INTEGER  IEIQF,E0FLAG<7> 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C 

C  A2C0M 

0004  INTEGER  NTEMj  SCSET  ,  SCOUNT , UCOUNT  <  RUN 

0005  REAL  TEMSET  j  FLDSET  j  ULTSET , X0 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
0006  INTEGER  ULTAGEj  MAGNET  j  TSTCON 

C  GAUSSM 

0007  REAL  FLDRD 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A4 
C  RAUDAT 

0008  REAL  TEMDAT(20) , ULTDAT (20) , SUDATAC20) . FLDATAC20) . IDATAC20) 

0009  INTEGER  SCDATA<20) 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  NODULE  At 
0010  COMMON  /'ECiPOUT/EGFLAGj  EGUIPF  *  IE1GF 

C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

0011  COMMON  /A2C0M/TEMSET , FLDSET , ULTSET , X0, NTEM. SCSET . SCOUNT , 

2UC0UNT.RUN 

C  THE  COMMON  BLOCKS  FOR  03  FOLLOW 
0012  COMMON  /GAUSSM/FLDRD 

C  THE  COMMON  BLOCKS  FOR  A4  FOLLOU 

0013  COMMON  /RAUDAT/TEMDAT ,  ULTDAT , SUDATAi FLDATA. IDATA, SCDATA 

C 
C 

C  CHECK  TO  SEE  IF  THE  GAUSS  METER  IS  0PERAT1UE 
C 

c 

0014  IFCE0FLAG(7).E0. 1 )  GO  TO  180 

0016  FLDRD=GAUSS<F) 

0017  FLDATACRUN)  =FLDRD 
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0018 

0019 


0020 

0021 

0022 

0023 


GO  TO  90O 
100  CONTINUE 

C  SET  THE  FLDflTH  UflLUE  TO  EQUfiL  THE  FIELD  SETTING  IF  THE  METER 
C  IS  INOPERATIVE. 

C 

FLDATA<RUN)=FLDSET 
90O  CONTINUE 
RETURN 
END 
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Figure  42.  Flow  Chart  for  Module  A5 
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0001 


SUBROUTINE  A5 
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OWn 
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0008 
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C 

C  MODULE  R5 - REDUCE  DRTfl 

C 

C  THIS  MCtoULE  IS  RESPONSIBLE  FOR  REDUCING  ALL  THE  DATA 
C  GATHERED  FIND  FOR  WRITING  IT,  AND  THE  RESULTING  PROCESSED 
C  DATA,  TO  THE  DISK  STORAGE  AND  TO  THE  PRINTER.  A5  IS  THE  EXECUTIVE 
C  FOR  THE  MODULE  AND  CONTROLS  SEVEN  OTHER  MODULES. 

C 

C  A51 - COMPUTE  TEMPERATURES 

C 

C  A52 - COMPUTE  DATA  OUTPUT 

C 

C  R53 - PRINT  PLOT  DATA 

C 

C  A54 - PLOT  DATA 

C 

C  AS5 - PRINT  REAL  TIME  DATA 

C 

C  A56 - WRITE  DATA  ARRAYS  TO  DISK 

C 

C  A57 - PRINT  OUTPUT  DATA  ARRAY 

C 

C  WHEN  FINISHED,  THE  DATA  PROCESSING  COMPLETE  SIGNAL  ALLOW  THE  NEXT 
C  BLOCK  OF  DATA  TO  BE  GATHERED. 

C 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  VERCHOT,  JR.,  USAF 

C 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C  DATA  SPECIFICATIONS 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C 

C  HEADER 

BYTE  TITLEC20) , TODAY O) 

REAL  ITEMPC100) 

INTEGER  TYPTEM 
C  DATAIN 

REAL  TEMP< 100) , F IELD, AULT <2 , 6) 

INTEGER  NTEMPT , ETVPE , NAVOLT , NDATPT 
C  TCALIB 

BYTE  THRMIDC20) 

INTEGER  NTEMP 
REAL  TEMCAL<2, 100) 

C  SAMPLE 

BYTE  SAMID<20> 

INTEGER  SAMTVP 
REAL  SANT, SAMW,S AML 
C  PLTQUT 

BYTE  P0PTS<6, 11) 
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0014 


0015 

0016 


001? 


0018 


0019 

0020 


0021 

0022 


0023 

0024 

0025 

0026 

002? 

0028 


0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 


0038 

0039 


INTEGER  PLOTftB  (4), PLOTOR  < 4 ) -  PLOT , NP 
EQPOUT 

BYTE  EQUIPF(10,3> 

INTEGER  IElOF,EOFLAG<?> 


RELT1M 

INTEGER  RTDATA 


THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
CONS I G 

INTEGER  SDP, EXPC, FSCGM, SCSCOM, ULTCOM 

c 

A2C0M 

INTEGER  NTEM , SCSET , SCOUHT , UCOUNT , RUN 
REAL  TEMSET , FLDSET , ULTSET ,  X0 
THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A3 
C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A4 
C  RAWDAT 

REAL  TENDAK26) ,  ULTDAK28) ,  SOD  AT  A<  20)  ,  FLDATA(20)  ,  IDATAC20) 
INTEGER  SCDATA<20) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A5 
C  DATOUT 

REAL  RHO,P,MU,RH,F 
REAL  TEM0UT<20),AUGTEM,  DELTA,  I ATEN 
REAL  R <4 ) , R 1 R2 , R3R4 ,R7,R3, OHALL , RNAG 
REAL  R1 , R2, R12,  R5, R6 , DELTAR, DELR5,  DELR6 
REAL  E,LN2, AFIELD, PI 
C  PLOTER 

REAL  PLOTS <4; 2) 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
C 

COMMON  /HEADER/T ITLE,  ITEMP,TYPTEM, TODAY 
COMMON  /DATAIN/NTENPT, TEMP, ETYPE, FIELD, 

2NA00LT , AULT , NDATPT 
COMMON  /TCALIB/THRMIDiNTEMP, TEMCAL 
COMMON  /SAHPLE/SAMID, SAMTVP, SAMT, SAMU, SAML 
COMMON  /PLTOUT/PLOT , PORTS, HP , PLOT A6 , PLOTOR 
COMMON  /EQPOUT/EGFLAG, EQUIPF, IEIOF 
COMMON  /RELTIM/RTDATA 

C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

COMMON  /CONSIG/SDP ,  EXPC ,  FSCOM,  SCSCOM,  ULTCOM 
COMMON  /A2C0M/TEMSET , FLDSET , ULTSET , XO, NTEM, SCSET , SCOUNT , 
2UC0UNT , RUN 

C  THE  COMMON  BLOCKS  FOR  A3  FOLLCU 
C  THE  COMMON  BLOCKS  FOR  A4  FOLLOW 

COMMON  /RAU'DAT/TEMDAT , ULTDAT , SUDATA , FLDATA, IDATA, SCDATA 
C  THE  COMMON  BLOCKS  FOLLOW  FOR  A5 

COMMON  /DATOUT/RHO, P, MU, RH, F, TEMOUT , AUGTEM, DELTA, IATEM,R, 
2R1R2, R3R4, R7, R8, UHALL, RMAG, R1 , R2, R12, R5, R6, DELTAR, DELR5, DELR6. 
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3E>LN2> AFIELD j PI 

0940  COMMON  /PLOTER/PLOTS 

C 

C  FIRST  COMPUTE  THE  TEMPERATURES  FROM  THE  DATA  UClLTACES. 

C 

C 

0041  CALL  R51 

C 

C  CHECK  IF  REAL-TIME  DATA  PRINTOUT  IS  DESIRED 
C 

0042  IF<RTDATA.EQ.0>  GO  TO  52 

0044  CALL  R55CTEM0UT) 

C 

0045  52  CONTINUE 

C  THEN  COMPUTE  ALL  OF  THE  OTHER  NEEDED  PARAMETERS 
C 

0046  CALL  A52 

C 

C  CHECK  IF  PLOTS  ARE  DESIRED 
C 

004?  IF(PLOT.EQ.0)GO  TO  55 

0049  CALL  A53 

0058  CALL  A54 

0051  55  CONTINUE 

C 

C  WRITE  THE  DATA  BLOCK  TO  DISK 

C 

0052  CALL  A56 

C 

C  CHECK  IF  EXPERIMENT  IS  COMPLETE 
C 

C  IF  IT  IS  PRINT  THE  OUTPUT  DATA 
C 

0053  IFCEXPC.EQ.0JGO  TO  900 

0055  CALL  A5? 

0056  900  CONTINUE 

005?  RETURN 

0058  END 


START  A  51 


Figure  43.  Flow  Chart  for  Module  A51 
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SUBROUTINE  A51 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  MODULE  fl51 - COMPUTE  TEMPERATURE 

C 

C  THIS  MODULE  TAKES  THE  UOLTAGE  RECORDED  BV  THE  DATA  ACQUISITION 
C  MODULE  FROM  THE  THERMOrETER  AND  CONUERTS  IT  TO  THE  CORRESPONDING 
C  TEMPERATURES.  THE  MEAN  AND  THE  DELTA  FOR  THESE  DATA  ARE  THEN  COMPUTED. 
C 
C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHGT >  JR.,  USAF 

C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  DATA  SPECIFICATIONS 

c 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  DATAIN 

REAL  TEMP<100>, FIELD, AULT (2,6) 

INTEGER  NTEMPT , ETVPE , NAUQLT , NDATPT 
C  TCALIB 

BYTE  THRMID<20> 

INTEGER  HTEMP 
REAL  TEMCAL<2, 1O0) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A4 
C  RRWDAT 

REAL  TEMDAT <20) ,  ULTDAT<20) ,  SUDATA<20) ,  FLDATA<20> ,  IDATA<28> 

INTEGER  5CDATft<20> 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A5 
C  DATOUT 

REAL  RHQ,P,MU,RH,F 
REAL  TEMOUT <20 > , AUGTEM, DELTA, I ATEM 
REAL  R<4) ,R1R2, R3R4,R7,R8, UHALL, RMAG 
REAL  R1 , R2, R12, R5,R6 , DELTAR, DELR5, DELR6 
REAL  E,LN2, AFIELD, PI 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
COMMON  /DATAI N/NTEMPT , TEMP, ETVPE, FIELD, 

2NAUOLT, AULT, NDATPT 
COMMON  /TCALIB/THRM I D , NTEMP , TEMCAL 
C  THE  COMMON  BLOCKS  FOR  H4  FOLLOW 

COMMON  /RAWDAT /TEMDAT , ULTDAT , SUDAT A, FLDATA, I DATA, SCDATA 
C  THE  COMMON  BLOCKS  FOLLOW  FOR  A5 

COMMON  /DATOUT/RHO,P, MU, RH, F, TEMOUT, AUGTEM, DELTA, IATEM,R, 

2R1R2, R3R4 , R7, R8, UHALL, RMAG, R1 , R2, R12, R5, R6, DELTAR, DELR5, DELR6, 
3E,LN2, AFIELD, PI 
C 

C  LOCAL  UARIABLES 

REAL  D<  160 ) ,  P 1  <100) ,  i<Q ,  V0,  UDELT A,  TEMSUM 
INTEGER  NS,NF,NPT 
TEMSUM=0. 0 
DELTA=0.0 

C  COMPUTE  THE  TEMPERATURE  EOUIUALENT  TO  THE  UOLTAGE  READINGS  FOR 
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C  THE  THERMOMETER. 


0922 

DO  10  K=1,NDATPT 

0923 

X0=TEMDAT(K) 

0024 

DO  20  N=IjNTEMP 

0023 

IFCX0.GE.TEMCRLC2jN) >GO  TO  30 

002? 

20 

CONTINUE 

0028 

30 

CONTINUE 

0029 

NS=H-3 

0030 

IFCNS.LT.1)NS=1 

0032 

NF=N+3 

0033 

IF  CNF . GT . NTEMP ) NF=NTEMP 

0035 

V0=0.0 

0036 

DO  40  I=NS,NF 

003? 

DCI)=1.0 

0038 

P1CI)=1.0 

0039 

DO  50  J=NSjNF 

0040 

IFCI.EQ. J)GO  TO  50 

0042 

DCI)=DCI>* <  TEMCRL  C2* I ) -TEMCALC2 » J ) ) 

0043 

P1CI)=P1CI)*CX0-TEMCALC2.J)) 

0044 

50 

CONTINUE 

0045 

V0*Y0+CPlCI>/DCI))+TEMCALCliI> 

0046 

40 

CONTINUE 

004? 

TEMOUTCK)=V0 

C  THIS  PORTION  OF  THE  PROGRAM  COMPUTES  THE  MEAN  TEMPERATURE 
C  FOR  THE  DATA  BLOCK  AND  THE  DELTA. 

0048 

TEMSUM=TEMSUM+TEMOUT  CK) 

0049 

10 

CONTINUE 

0050 

AUGTEM=TEMSUM/NDATPT 

0051 

IRTEM= 1000.  AUGTEM 

0052 

DO  60  I=1,NDRTPT 

0053 

WDELTR=RUGTEH-TEMOUT  C I ) 

0054 

IFCUDELTA. GT . DELTA)DELTA=WDELTA 

0056 

60 

CONTINUE 

005? 

RETURN 

0058 

END 

1S6 


CONSTANTS 


Figure  44.  Flow  Chart  for  Module  A52 


0001 


SUBROUTINE  052 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

C  MODULE  052 - COMPUTE  DOTO  OUTPUT 

c 

C  THIS  MODULE  COMPUTES  BLL  OF  THE  NEEDED  OUTPUT  DOTO.  THESE 
C  ORE  R(t),R(2),R(3),R(4),Rl/R2,R3/R4,RH0,MU,P,  OND  RH. 

C  DEFINITIONS  FOLLOW: 

C  RC1>=SU1/I1 

C  R(2)=SU2/I2 

C  R(3)=S»J3/I3 

C  R(4)=SU4/I4 

C  R1/R2  AND  R3/R4  ORE  SELF  EXPALANOTORV. 

C  RHO=RESISTIUITV 

C  MU=HOLL  MOBILITY 

C  P=CORRIER  CONCENTROT ION 

C  RH=HOLL  COEFFICIENT 

C  THESE  DOTO,  COUPLED  WITH  THE  TEMPEROTURES  FROM  051  ORE  THE  END  RESULT 
C  OF  TIC  EXPERIMENT. 

C 

c 

C  OUTHOR:  COPTOIN  EDGAR  0.  UERCHGT,  JR.,  USOF 

C 

c 

CCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  DOTH  SPEC IF ICOT IONS 

C  THESE  ORE  THE  DOTO  SPEC IF ICOT IONS  FOR  01 
C  DOTBIN 

0002  REOL  TEMP ( 108) ,  F IELD , OULT (2,6) 

0003  INTEGER  NTEMPT ,  ETVPE,  NOUOLT ,  NDATPT 

C  SOMPLE 

0004  BYTE  SOM ID (20) 

0005  INTEGER  SOMTVP 

0006  REOL  SOMT ,  SOMW ,  SOML 

C  THESE  ORE  THE  DOTO  SPEC IF ICOT IONS  FOR  02 
C  02C0M 

0007  INTEGER  NTEM, SCSET , SCOUNT , UCOUNT , RUN 

0008  REOL  TEMSET , FLDSET , ULTSET , X@ 

C  T1CSE  ORE  THE  DOTO  SPECIFICOTIONS  FOR  05 
C  DOTOUT 

0009  REAL  RHO,P,MU,RH,F 

0010  REAL  TEMOUT(20) , AUGTEM, DELTA, IATEM 

0011  REAL  R(4 ) , R1 R2 , R3R4 , R7 , R8 , UHALL , RMOG 

0012  REAL  R1,R2,R12,R5,R6,DELT0R,DELR5,DELR6 

0013  REOL  E,LN2,AFIELD,PI 

C  THESE  ORE  THE  DATA  SPECIFICATIONS  FOR  A4 
C  ROWDflT 

0014  REAL  TEMDOT(20) , ULTDOT (20) , SUDOTAC20) , FLDOTOC20) , 1DOTOC20) 

0015  INTEGER  SCDATO(20) 

C  THE  COMMON  BLOCKS  FOR  01  FOLLOW. 

0016  COMMON  /DOTAIN/NTEMPT, TEMP, ETVPE, FIELD, 

2N0MQLT ,  RULT ,  HDOTPT 

0017  COMMON  /SOMPLE/SAMID, SOMTVP, SOMT, SOMU,SAML 


1?8 


0018 


C  THE  COMMON  BLOCKS  FOR  A2  FOLLOW 

COMMON  /R2COM/TEMSET , FLDSET , ULTSET , X0, NTEM, SCSET , SCOUNT , 
2UC0UNT,RUN 

C  THE  COMMON  BLOCKS  FOR  A4  FOLLOW 
0019  COMMON  /RAWDAT/TEMOAT ,  ULTDAT ,  SUDATA,  FLDATA,  IDATA,  SCDATA 

C  THE  COMMON  BLOCKS  FOLLOW  FOR  A5 

0020  COMMON  /DATQUT/RHO ,  P ,  MU ,  RH,  F ,  TEJ10UT ,  AUGTEM,  DELTA,  1ATEM,  R , 

2R1R2,  R3R4 ,  R? ,  RS ,  UHALL,  RMAG,  R1 ,  R2,  R 1 2,  R5,  Rb ,  DELTAR ,  DELR5 ,  DELR6 , 
3E,LN2, AFIELD, PI 

C  INITIALIZE  NECESSARY  PARAMETERS 
0021  RMAG=0.0 

0022  AF IELD=0. 0 

0023  LN2=AL0GC2. ) 

0024  E=1.6021917E-19 

0025  PI =3. 1415827 

C  FIRST  FIND  OUT  THE  EXPERIMENT  TYPE 
0026  IFCETYPE.NE. 1)  GO  TO  28 


C 

DO  THE  COMPUTATIONS  FOR  THE  WAN  DER  PAUW  SAMPLE  TYPE 

C 

COMPUTE  THE  RESISTANCE  UALUES 

0028 

DO  10  1=1,4 

0029 

RC  I  )=CABSCSUDATAC2*  1-1  >/  IDATAC2+I-1)  >+ABSCSUDATAC2*l>/ 
2IDATAC2+I)>>/2 

0030 

10 

CONTINUE 

C 

COMPUTE  THE  R  RATIOS 

0031 

R1R2=RC1)/RC2> 

0032 

R3R4=RC3)/RC4> 

C 

SET  THE  WORKING  PARAMETERS  NEEDED  FOR  LATER  CALCULATION 

C 

R1  IS  THE  AUERAGE  OF  R(l)  AND  RC3) 

C 

R2  IS  THE  AUERAGE  OF  RC2>  AND  R(4) 

C 

R12  IS  THE  RATIO  OF  R1/R2 

0033 

Rl=CRCl)+RC3)>/2 

0034 

R2=CRC2)+RC4))/2 

0035 

R12=R1/R2 

C 

COMPUTE  DELTA  R 

C  DELTAR  IS  THE  AUERAGE  OF  DELTA  R5  AND  DELTA  R6 

0036 

DELR5=ABS< CSUDATA C 13)/ IDAT AC  1 3) -SUDATAC 14)/ IDAT AC 1 4 ) > /4 ) 
2+ABS  <  CSUDATA  C 1 7 ) / IDATA  C 1 7 ) -SUDAT A  Cl 3 ) / ID AT A  C 1 8 ) ) /4 ) 

0037 

DELR6=ABS < CSUDATA  C15 ) / ID ATA  C 15) -SUDAT A  C 16 ) / IDATA (1 6 ) ) /4 ) 
2+ABSC  CSUDATAC 1 9 ) / IDATAC 1 9 ) -SUDAT AC28) / IDATAC20) ) /4) 

0038 

DELTAR=CDELR5+DELRS ) /2 

C 

COMPUTE  THE  AUEFAGE  FIELD 

0039 

DO  11  1=13,20 

0040 

AFIELD=AF IELD+ABSCFLDATAC I ) )/8 

0041 

11 

CONTINUE 

0042 

GO  TO  40 

0043 

20 

CONTINUE 

0044 

IFCETYPE.NE. 2)  GO  TO  30 

C 

COMPUTE  THE  RESISTANCE  UALUES  FOR  ETYPE  2. 

0046 

DO  21  1*1,2 

0047 

RC I >=<ABS<SUDATAC2* l- 1 )/ IDATAC2*1-1 > >+ABSCSUDATAC2* 1 )/ 
2IDATAC2*I»)/2 

0048 

21 

CONTINUE 

C 

COMPUTE  THE  R  RATIOS 

1&9 


0049 

R1=R<1> 

0050 

R2=R<2> 

0051 

IF (SCOUNT . EQ . 0)00  TO  25 

0053 

RlR2=Rd)/R(2> 

0054 

R3R4=0.0 

0055 

R12=R1R2 

0056 

GO  TO  26 

0057 

25 

CONTINUE 

0058 

R3R4=RdVR<2> 

0059 

R1R2=0.0 

0060 

R12=R3R4 

0061 

26 

CONTINUE 

C 

COMPUTE  THE  DELTA  R 

0062 

DELTAR=ABS  <  CSUDATAC7)  /  IDATAC7 )  -SUDATAC8j/lDATAC3>  )/4  ) 
2+ABSC<S'JDATAC9)  /  IDATA-:9) -SUDATAC1 0) /IDATAC10)  )/4  ) 

C 

COMPUTE  THE  AVERAGE  FIELD 

0063 

DO  27  1=7, 10 

0064 

AF IELD=AF IELD+ABS (FLDATA< I  >  )  /4 

0065 

27 

CONTINUE 

0066 

GO  TO  40 

0067 

48 

CONTINUE 

C 

COMPUTE  THE  UAN  DER  PAUV  F  VALUE 

0068 

F=l-<«(Rl-R2)/CRl+R2>)+*2)*aN2/2.))-CaCRl-R2V<Rl+R2))**4) 
2*«LN2**2/4.  >-<LN2**3/12. ))) 

C 

NOW  FIND  RHO,  THE  RESISTIVITY 

0069 

RHO=  iP I+SAMT /LN2>+ < <R 1 +R2>/2. >+F 

C 

NOW  FIND  MU,  THE  HALL  MOBILITY 

0070 

MU= < CDELTAR+SAMT ) ✓ <RHO*AF IELD ) ) *  1 . 0E+5 

C 

NOW  FIND  P,  THE  CARRIER  CONCENTRATION 

0071 

P*1.AMU*E*RH0) 

C 

NOW  FIND  RH,  THE  HALL  COEFFICIENT. 

0072 

RH=MU*RHO 

0073 

GO  TO  900 

0074 

30 

CONTINUE 

C  NOW  DO  THE  CALCULAT IONS  FOR  THE  HALL  BAR,  EXPERIMENT  TVPE  3 

C 

FIRST  FIND  THE  RESISTANCE 

0075 

R7=<ABS<SVDATA'C  1  )/IDATA(  1 )  )  +ABSCSUDATAC2  VIDATAC2)  )  )/2 

C 

NOW  FIND  RHO,  THE  RESISTIVITY 

0076 

RH0=SANW:*SAMT*R7/SAML 

C 

FIND  THE  AVERAGE  FIELD 

0077 

DO  31  1=5,3 

0078 

flF IELD=AF IELD+ABS (FLDAT AC I ) ) / 4 

0079 

31 

CONTINUE 

C 

FIND  V'/V 

0088 

DO  32  1=5, 8, 2 

0081 

RMAG=RMAG+<SUDATA< I )/IDATA< I) -SUDAT ACI + 1 ) / IDATAC I + 1 ) )/2 

0082 

32 

CONTINUE 

C 

NOW  FU®  THE  HALL  MOBIL ITV,  MU 

0083 

MU=(SAML/ < AF IELD+SAMU ) ) + CRMAG/R7 )* 1 . 0E+5 

C 

NEXT  FIND  P,  THE  CARRIER  CONCENTRATION 

0084 

P=AFIELD/<E*SAMT*RMAG) 

C 

NOW  FIND  THE  HALL  COEFFICIENT,  RH 

0085 

RH=MU*RHO 

160 


0086  900  CONTINUE 
008?  RETURN 

0088  END 
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SUBROUTINE  053 


0002 

0003 


win 

0005 


0006 

000? 

0008 

0009 

0010 


0011 

0012 

0013 

0014 


0015 

0016 

001? 

0018 

0019 

0020 

0021 

0022 

0023 


C 

C  NODULE  053 - PRINT  PLOT  DOTft 

C 

C  THIS  MODULE  PRINTS  THE  PLOT  DOTH  ON  THE  TERMNRL 
C  WHENEVER  THE  PLOT  FLOG  IS  SET  TRUE.  IT  THEM  POSSES  THE  DOTH  TO 
C  TTHE  PLOT  MODULE.  IF  THE  PLOT  FLOG  IS  FOLSE  THIS  MODULE  DOES 
C  NOT  EXECUTE. 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHQT,  JR.,  USRF 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  DATA  SPECIFICATIONS 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  PLTOUT 

BVTE  P0PTS<6, 11) 

INTEGER  PLQTRB  (  4  ) , PLOTOR (  4  ) , PLOT , NP 
C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  05 
C  PLOTER 

REAL  PL0TS<4,2> 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  01 

COMMON  /PLTQIJT /PLOT ,  PGPTS,  NP ,  F'LOTAB,  PLOTOR 
C  THESE  ARE  THE  COMMON  BLOCKS  FOR  05 
C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  05 
C  DATOUT 

REAL  RHO»P,MU,RH,F 
REAL  TEMOUTC20) , AVGTEM, DELTA, IATEM 
REAL  RC4) , R1R2, R3R4,R7, R3, VHALL, RMAG 
REAL  R1 , R2 , R 1 2 , R5 , R6 , DEL  T OR , DELR5 , DELR6 
REAL  E,LN2, AFIELD, PI 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A4 
C  RRVDAT 

REAL  TEMDAT (20) , VLTDATC20) , SVDATAC20) ,FLDATA(20> , IDATAC20) 
INTEGER  SCDRTH<20) 

C  THE  COMMON  BLOCKS  FOR  A4  FOLLOU 

COMMON  /RAUDAT /TEMDAT , VLTDAT , SUDATA, FLDATA, IDATA, SCDATA 
C  THE  COMMON  BLOCKS  FOLLOU  FOR  A5 

COMMON  /DATOUT /RHO, P,  MU,  RH,  F, TEMOUT , AVGTEM, DELTA , IATEM, R, 
2R1R2, R3R4 ,  R7,  R3 , UHALL, RMAG, R1 , R2 , R1 2, R5, Rb, DELTAR , DELR5 , DELR6 , 
3E,LN2, AFIELD, PI 
COMMON  /PLOTER/PLOTS 
C  LOCAL  VARIABLES 

INTEGER  H0LIK2) 

C  NOW  PRINT  THE  DESIRED  DATA 
DO  1  1=1, NP 

WRITE(7, 1O00)  CP0PTS<L,PL0TAB(I)),L=1,6), 

2<P0PTS<K , PLOTOR  ( I ) ) , K=1 , 6) 

1000  FORMAT (IX, 6A1,7X,6A1) 

HOLD<n=PLOTAB<I) 

H0LD(2)=PL0T0R<I) 

DO  200  J=l,2 
K=HOLD(J) 


i 
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0024 

GO  TO  <10,20,30,40.50.60.70,80,90, 100), K 

0025 

URITE<7,300) 

0026 

800 

FORMAT-:/'  ERROR  IM  THE  PLOT  MODULE') 

0027 

GO  TO  900 

0028 

10 

CONTINUE 

0028 

PLOTS  < 1 , J ) =RUGTEM 

0030 

GO  TO  200 

0031 

20 

CONTINUE 

0032 

PLOTS<I, J)=IATEM 

0033 

GO  TO  200 

0034 

30 

CONTINUE 

0035 

PLOTS<I,J)=RHO 

0036 

GO  TO  200 

0037 

40 

CONTINUE 

0838 

PLOTS<I, J)=MU 

0039 

GO  TO  200 

0040 

50 

CONTINUE 

0041 

PLOTS<l,J)=P 

0O42 

GO  TO  200 

0043 

60 

CONTINUE 

0044 

PLOTS<I, J)=DELTA 

0045 

GO  TO  200 

0046 

70 

CONTINUE 

0047 

PLQTS< I, J)=R1R2 

0048 

GO  TO  200 

0049 

80 

CONTINUE 

0850 

PLOTS <I,J)=R3R4 

0051 

GO  TO  200 

0052 

90 

CONTINUE 

0853 

PLQTS<I,J)=RH 

0054 

GO  TO  200 

0055 

100 

CONTINUE 

0056 

PL0TS< I, J)=R12 

0057 

200 

CONTINUE 

0058 

WRITE<7,2000XPLOTS<I,J),J=1,2) 

0059 

2000 

F0RMAT<1X,G15.3,3X,G15.8) 

0060 

1 

CONTINUE 

C  CALL  THE  PLOTTER 

0061 

CALL  A54 

0062 

900 

CONTINUE 

0063 

RETURN 

0064 

END 

( 
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0081 


0602 

0003 


SUBROUTINE  A54 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  MODULE  054 - PLOT  DATA 

c 

C  NO  PLOTTER  HAS  VET  BEEN  PURCHASED.  THE  APPROPRIATE  DRI'JER  FOR  IT 
C  MILL  BE  ENTERED  HERE  WHEN  IT  IS. 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

RETURN 

END 
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Figure  46.  Flow  Chart  for  Module  A55 
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0001  SUBROUTINE  A55CTEM0UT) 

cccmmxccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  MODULE  055 - PRINT  REAL-TIME  DOTft 

c 

C  THIS  MODtI_E  TAKES  THE  ROU  DOTH  OND  IF  THE  RTDATO  FLAG  IS  SET 
C  TRUE.  PRINTS  IT  OUT  TO  THE  TEEM I HAL  AFTER  EACH  BLOCK  OF  DATA 
C  IS  GATHERED. 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT ,  JR.,  USFF 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  DATA  SPECIFICATIONS 

c 

c 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C 

C  HERDER 

0002  BVTE  TITLED 20 ) ,  TQDAV <9 ) 

0003  REAL  ITEMPO00) 

0004  INTEGER  TVPTEM 

C  TCALIB 

0005  BVTE  THRMID<29> 

0006  INTEGER  NTEMP 

000?  REAL  TEMCRLC2, 100) 

C  SAMPLE 

0008  BVTE  SAMIDC20) 

0009  INTEGER  SAMTVP 

0010  REAL  SAMT , SAMU , SAML 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C  A2C0M 

0011  INTEGER  NTEM, SCSET , SCOUNT , UCOUNT , RUN 

0012  REAL  TEMSET , FLDSET , ULTSET , X0 

C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  HI 
C 

0013  COMMON  /HEADER/TITLE, ITEMP, TVPTEM, TODAV 

0014  COMMON  /TCALIB-'THRM  I D ,  MTEMP ,  TEMCAL 

0015  COMMON  /SAMPLE •''SAM  I D ,  SAMTVP ,  SAMT ,  SAMU ,  SAML 

C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOU. 

0016  COMMON  /R2C0M/TEMSET , FLX'SET , ULTSET , KB, NTEM, SCSET, SCOUNT, 

2UC0UNT ,  RIJN 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A4  COMMON 

C  RANDAT 

001  ?  PEAL  TEMDAT <20 ) , ULTDAT <20) ,SUDATA<20) , FLDATAC20),  IDATAC20) 

0010  INTEGEP  SCDATAL20) 

C  COtflOH  BLOCKS  FOR  A4  FOLLOU 

COMMON  'RWDAT/TEMDAT, ULTDAT, SUDATA, FLDATA,  IDATA, SCDATH 

•mm  0C0L  TEHOUT<20) 


mm*  ’*0  D*»TH  72  COLUMNS  UIDE 
•  «***.*.. li  GO  TO  100 
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0023 

0024 

1000 

0025 

0026 

1010 

0027 

0029 

0030 

1100 

0031 

0032 

110 

0033 

0034 

1110 

0035  100 

0036 

0037  2000 


0038 

0039 

0040  2010 
0041  200 
0042 
0043 


WRITEC7, 1000)  (TODAY (I ) ,  1=1, 9) ,  CTITLE(J) , J31, 19) 

FORMAK'  ','  DATE:  ',9A1,/, '  TITLE:  ',19A1) 

WRITEC7, 1010)(THRMID(K),K=1, 19),  (SAMIDCL),L=1,  19) 

FORMAT < '  ', 'THERMOMETER  IDENTIFIER:  ',/,20Al,,', 

2  '  SAIPLE  IDENTIFIER:  ',28A1) 

IF  (SAMTVP . NE. 0 ) GO  TO  110 
WRITEC7, 1100)  SAMT 

FORMAT ( '  ','  SAMPLE  DIMENSIONS  ARE: 

2  '  THICKNESS=  ',G13.7,'  CENTIMETERS') 

GO  TO  100 

CONTINUE 

WRITE(7,  1110)  SAMT ,  SAMW ,  SAML 

FORMAT-:'  ','  SAMPLE  DIMENSIONS  ARE:  ',/, 

2  '  SAMPLE  THICKNESS3  ',G13.7,'  CENTIMETERS',/', 

3  '  SAMPLE  WIDTH3  ',G13.7,'  CENTIMETERS',/', 

4  '  SAMPLE  LENGTH3  ',G13.7,'  CENTIMETERS') 

CONTINUE 

WRITE-: 7, 2000) 

FORMATS'  ','  TEMPERATURE  ','  APPLIED  ','  SAfPLE 

2'  FIELD  ','  SAMPLE  ','  CURRENT  ',✓, 

315X, '  UOLTAGE  ','  ‘JOLT AGE  ', i2X, 'CONFIGURATION' ,/, 

4'  (DEGREE  K)  ','  ('JOLTS)  ','  (UOLTS)  ','  (KGAUSS) 

512X, '  (AMPERES)  ',/) 

DO  200  1=1, RUN 

WRITE( 7, 2010)  TEMOUT (I), ULTDAT (I), SUDATA( I ) , FL£-ATA( I ) , 
2SCDATA( I ) , IDATA( I ) 

FORMAT  ('  ' ,  IX,  G 12. 5 ,  3G12 . 5 ,  5X,  12 , 5X,  G1 4 . 7  ) 

CONTINUE 

RETURN 

END 


r 
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RETURN 


; 


( 


Figure  47.  Flow  Chart  for  Module  A56 
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SUBROUTINE  «56 


ccccamxccaxrccccaxccccccccccccccccccccccccccccccccccccc^ 

c 

C  MODULE  A56 - WRITE  DATA  ARRAYS  TO  THE  DISK  FILES 

c 

C  THIS  MODULE  TAKES  THE  RAW  DATA  AMD  THE  PROCESSED  DATA  WD 
C  MUTES  IT  TO  THE  DISK  STORAGE  USING  UNFORMATTED  WRITE  STATBENTS. 

C  IT  CAN  BE  RECALLED  USING  UNFORMATTED  READ  STATEMENTS.  THREE  FILES 
C  ARE  USED: 

C  1.  RAUOUT.DAT 

C  2.  INTRMD.DAT 

C  3.  OUTPUT.DAT 

C  THESE  FILES  MUST  NOT  EXIST  ON  THE  STORAGE  DISK  PRIOR  TO  BEING 
C  CREATED  BY  THIS  PROGRAM.  IF  THEY  EXIST  THEY  MUST  BE  DELETED  OR 
C  A  FRESH  DISK  SUBSTITUTED.  WHEN  FINISHED  THE  MODULE  RETURNS 
C  UNLESS  THE  EXPERIEMENT  COMPLETE  FLAG  IS  SET  TRUE.  IF  IT  IS 
C  CONTROL  PASSED  TO  A57. 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOTj  JR.,  USFF 

C 

ccccccccccccccccccccccccccccccccccccrocrc^ 

c 

C  DATA  SPECIFICATIONS 

C  TFESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C  A2CGM 

0002  INTEGER  NTEM ,  SCSET ,  SCOUNT ,  '.COUNT ,  RUN 

0003  REAL  TEMSET , FLDSET , ULTSET , XO 

C  TVESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A4  COMMON 
C  RAWDAT 

0004  REAL  TEM>AT<20) ,  ULTDAT(20) ,  SUDATAC20)  ,FLDATAC20) ,  IDATAC20) 

0005  INTEGER  SCDATA(20) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A5 
C  DATOUT 

0006  REAL  RHO,P,MU,RH,F 

0007  REAL  TEHOUT C22) ,  AUGTEM,  DELTA.  IATEM 

0008  REAL  R<4 ) ,  R1R2, R3R4 >  R7 , R3 , UHALL , RMAG 

0009  REAL  R1,R2,R12,R5,R6,DELTAR,DELR5,DELR6 

0010  REAL  E,LN2, AFIELD, PI 

C  THE  COTtlON  BLOCKS  FOR  A4  FOLLOW 

0011  COMMON  /RflUOAT/TEMDAT ,  ULTOAT .  SUDATA,  FLOAT  A,  IDATA,  SCDATA 

C  THE  COMMON  BLOCKS  FOLLOW  FOR  A5 

0012  COmON  /DAT CUT /RHO ,  P ,  MU ,  PH .  F ,  T EMOUT ,  AUGTB1 .DELTA,  IATEM , R . 

2R1R2,  R3R4 ,  R7 ,  R3 ,  UiHALL ,  RMAG,  R 1 ,  R2 ,  R12,  R5,  R6,  DELTAR ,  DELR5 ,  DELR6, 
3E,LN2, AFIELD, PI 

C  THE  MAMED  COMMCM  BLOCKS  FOR  A2CMN  FOLLOW. 

0013  COMMON  /A2C0M/TEMSET , FLDSET ,  ULTSET ,  XO,  NTEM, SCSET , SCOUNT, 

2UC0UNT,RUN 
C 

c 

C  WRITE  RAUOUT.DAT 
0014  DO  10  1=1,  RUN 

0015  WRITEU)  TEMOUT Cl), ULTDAT Cl), SUOAT AC I ) , FLDATAt I ) , 

2  SCDATACI), IDATACI) 
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0016  10  CONTINUE 

C  WRITE  INTRND.DAT 

0017  WRITE C2)  AUGTEM, DELTA, R1R2.R3R4.R12 

0018  IUNIT=ILUN<3> 

C  WRITE  OUTPUT  DATA 

0019  WRITEC3)  AUGTEMi  IATEM>RHOjMUjP>RH 

0020  I=IWAIT<IUNIT> 

0021  RETURN 

0022  END 


0001 


SUBROUTINE  05? 


0002 

0003 

0004 


0005 

WOO 


000? 

0008 

Wwj 

0010 


0011 

0012 

0013 

0014 

0015 

0018 

001? 

0018 

0019 

0021 

0022 

0023 

0024 


C 

C  MODULE  85? - PRINT  OUTPUT  DATA  RRRftVS 

C 

C  THIS  MODULE  OUTPUTS  THE  CONTENTS  OF  THE  TUO  PROCESSED 
C  DftTfl  flRRflV  FILES: 

C  INTRMD.DflT  FIND 

C  OUTPUT. DAT 

C  WHEN  THE  EXPERIMENT  IS  COMPLETE. 

C 

c 

C  AUTHOR:  CflPTAIN  EDGAR  A.  UERCHOT,  JR. ,  USAF 

C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  DftTfl  SPECIFICATIONS 
C  LOCAL  VARIABLES 
C 

BYTE  TODAVO)  , TITLE(20> ,  THPJ1ID(20> ,  SAMID(20> 

INTEGER  SAMTVP 
REAL  SAMT  ,  SAMW  >  SAML 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FROM  MODULE  A1 
C  EQPOUT 

BYTE  EQUIPF(10,3> 

INTEGER  IEIOF,EOFLAG(?) 

C  THESE  ARE  THE  DATA  SPECIFICATIONS  FOR  A2 
C  A2C0M 

INTEGER  NTEM,  SCSET ,  SCOUNT ,  UCOUNT ,  RUN 
REAL  TEMSET , FLDSET , ULTSET , X0 
C  THESE  ARE  THE  COMMON  BLOCKS  FROM  MODULE  A1 
COMMON  /EQPOUT /EOFLAG , ECU I PF , IEIOF 
C  THE  NAMED  COMMON  BLOCKS  FOR  A2CMN  FOLLOW. 

COMMON  /R2COM/TEMSET < FLDSET j ULTSET j X0 , NTEM ,  SCSET . SCOUNT , 
2UCOUNT  ,  RUN 
C 

c 

C  REWIND  THE  FILES 
REWIND  2 
REWIND  3 

C  READ  THE  HEADER  INFORMATION  AND  PRINT  IT  OUT 
DO  10  1=2,3 

READ(I>  (T0DAV(J),J=1,9) 

READ  (I )  (TITLE(K),K=1,19> 

RE ADC  I)  (THRMID(L) »L=t» 19) 

READ (I )  (SAMID(M),M=1,20> 

READ(l)  SAMTVP 
IF  (SAMTVP. NE.0)  GO  TO  100 
RE ADC  I)  SAMT 
GO  TO  11 
100  CONTINUE 

READ(l)  SAMT  > SAMW , SAML 
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0025 

11 

CONTINUE 

C  THROW  AWAY  THE  REDUNDANT  INFORMATION 

0026 

IFCI.NE.2)  GO  TO  10 

0028 

WUTEC7, 1000)  (TODAY •:  J ) , J=1 , 9) ,  (TITLE  CIO  ,K=1 , 19) , 

2  (THRMIDCL),L=l, 19), (SAMIDCM),M=1, 19) 

0029 

1000 

FORMAT ("  ",1X,9A1,/,1X,19A1,/,1X,  19A1,/, IX, 19A1 

0030 

IF (SAMTYP . NE. 0 )  GO  TO  200 

0032 

URITEC7, 1100)  SANT 

0033 

1100 

FORMAT ("  ',"  SAMPLE  THICKNESS  =  ",G14.7, 

2  "CENTIMETERS') 

0034 

GO  TO  18  / 

0035 

200 

CONTINUE 

0036 

URITEC7,2000>  SAMT,SANU,SAML 

0037 

2000 

FORMRTC"  ","  SAMPLE  THICKNESS  =  ",G14.7, 

2  "CENT IMETERS ' ,  /, "  SAMPLE  WIDTH  =  ",G14.7, 

3  "CENTIMETERS",/,"  SAMPLE  LENGTH  =  ",  G14.7, 

4  "CENTIMETERS") 

0038 

10 

CONTINUE 

0039 

IFCIEIOF.EQ.0)  GO  TO  21 

0041 

WRITE(7, I960) 

0042 

1900 

FORMAT ("  ","  THE  FOLLOWING  AUTOMATIC  EQUIPMENT  WAS 

2  INOPERATIVE:") 

0043 

DO  20  1=1,7 

0044 

IF(EGFLAGCI).NE.l)  GO  TO  20 

0046 

WRITE(7,2020)  (EGUIPFCJ, I), J=l, 10) 

0047 

2020 

FORMAT C"  " , 10A1 ,///) 

0048 

20 

CONTINUE 

0849 

21 

r 

CONTINUE 

C  PRINT  THE  INTERMEDIATE  ARRAY 

0050 

WRITE<7,3000) 

0051 

3000 

FORMAT <"  ","  TEMPERATURE  ","  DELTA 

2"  R1/R2  ","  R3/R4  ","AVGR1/R2  ") 

0052 

DO  30  1=1,100 

0053 

READ<2,END=35)  A,D,R1,R3,R12 

0054 

liPITE(7,3030)  A,D,R1,R3,R12 

0055 

3030 

FORMAT ("  ", 1X,5G12.5) 

0056 

30 

CONTINUE 

0057 

35 

CONTINUE 

C  HOW  PRINT  THE  OUTPUT  DATA  ARRAY 

0058 

WRITE(7,4000) 

WU7 

4000 

FORMAT ("  ","  TEMPERATURE  ","  1/T 

2"  RESISTIUITY  ","  HALL  ","  CARRIER  ", 

3"  HALL  ",/,36X,"  MOBILITY  ",  "CONCENTRATION" 

4"  COEFFICIENT") 

Ww 

DO  40  1=1,100 

0061 

READ (3, END=45)  A,T,R,U,P,RH 

0062 

WRITE(7,4040)  A,T,R,U,P,RH 

0063 

4040 

FORMAT <"  ", 1X,6G12. 5) 

0064 

40 

CONTINUE 

0065 

45 

CONTINUE 

0066 

CLOSE (UNI T=l) 

0067 

CLOSE  OINI  T*2) 
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0068 

0069 

0070 


CLOSE (UNI T=3) 

RETURN 

END 


0001  FUNCTION  GAUSS (IOULD) 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  IS  THE  GAUSS  METER  DRI'JER  PROUIDED  BV  MR.  DANE  HANBY,  UDRI.  THE 
C  GAUSSMETER  MUST  BE  SET  TO  THE  10K  GAUSS  SCALE  FOR  THE  UfllUE  TO  BE 
C  CORRECT.  THERE  IS  NO  AUTOMATED  CONTROL  OF  THE  METER.  IT  S IMPLY  PASSES 
C  THE  DATA  OUT.  FURTHERMORE  IT  DOES  NOT  PASS  OUT  THE  SCALE  THAT  IT 
C  IS  SET  TO.  THEREFORE  IT  MUST  BE  MANUALLY  SET  TO  THE  10K  GAUSS  SCALE) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
0002  INTEGER  CRS1. OUT 1, INI 

0003  DATA  CFS1/,i,167770/jOUTI/"167??2/«  IN1/“16??74/' 

0004  IOULD=0 

0005  10  IWGRD=IPEEKC INI ) 

0006  1FUIWORD  .AND.  “20000)  .EQ.  0)  GOTO  10 

0008  IFCCIUORD  .AND.  “40000)  .NE.  0)  IOULD=l 

0010  I UAL= I BCD <. I UORD  .AND.  ”17777) 

0011  IFCaUQRD  .AND.  "100000  ).N£.  0)1UAL=-I'JAL 

0013  GAUSS=0. 1+IUAL 

0014  RETURN 

0015  END 
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0001  INTEGER  FUNCTION  TSTCONCISRM.  IPOL) 

ctxccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cc 

C  THIS  MODULE  CONTROLS  THE  SfiMPLE  CONFIGURATION  SETTING  U1A  THE  UDRI 
C  TEST  CONTROLLER.  THIS  DRIUER  MODULE  UAS  WRITTEN  BV  MR.  DANE  HANBV,  UDRI. 
C  IT  SIMPLV  SETS  THE  SAMPLE  CONFIGURATION  AND  POLARITY  TO  THOSE  SPECIFIED 
C  AND  PASSES  A  TST  SAMPLE  OK  SIGNAL  BACK  TO  THE  CALLING  PROGRAM 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0002  INTEGER  CRS1,0UT1, INI 

0003  DATA  CRSl/"l167??Q.'iOUTl/"I6?7?2/i  INI/"  167774/ 

0004  ICONF= ISAM- 1 

0005  IREG= IPEEK (OUT 1 )  .AND.  "170377 

0006  IOUT=IREG  .OR.  CIPOL  *  2048  +  ICONF  *  256) 

0007  CALL  IPQKE  < OUT 1 . 1 OUT ) 

0008  TSTCON=l 

0009  RETURN 

0010  END 
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0001  FUNCTION  DMM< IDflTfl) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  MODULE  CALLS  THE  KEITHLEV  MODEL  616  DIGITRL  ELECTROMETER 
C  TO  READ  THE  CURRENT  DATA.  THIS  IS  DONE  6V  CALLING  THE  DRI'JER 
C  SUBPROGRAM  SUPPLIED  BV  UDRI,  IDMMC1,  IDMMGT ,  AND  FLOAT.  IDMMGT 
C  READS  THE  CURRENT  VALUE  FORM  THE  DMM  INTO  THE  IDATA  ARRAV.  THIS 
C  UALUE  IS  THEN  TRANSFORMED  INTO  A  FLOATING  POINT  NUMBER  USING  THE 
C  IDMMC1,  AND  FLORT. 

C 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT,  JR.,  USAF 

C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCC 
C  DATA  SPECIFICATIONS 
0002  INTEGER  IDATA < 9) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  THIS  PROGRAM  WAS  GRIGINALLV  WRITTEN  BV  FRANK  BEITAL  OF  UDRI.  IT  WAS 
C  MODIFIED  BV  CAPTAIN  UERCHGT  FOR  USE  WITH  HIS  AHEDAS  SVSTEM. 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  READ  THE  KEITHLEV  ELECTROMETER 

0003  I  CONTINUE 

0004  L = I DMMGT ( I D ATA ) 

C  NOW  DECODE  THE  IDATA  ARRAV  PASSED  FROM  THE  KEITHLEV 

0005  MANTIS  =  IDMMCI  (IDATRC1) ,4) 

0006  IFUNC  =  IDATA C5)/4 

0007  IEXP=IDMMC1(  IDATA<5)  >2) 

0008  IDP=IDATA(  1V3  .OR.  2*IDATA(3> 

0008  IF ( I DP . EQ .  -2  )  GO  TO  10 

0011  ISCALE  =  -123 

0012  IF  (IDP.EG.  1)  ISCALE  =  -2 

0014  IF  ( IDP.EQ.  2)  ISCALE  =  -1 

0016  IF  < IDP.EQ.  4)  ISCALE  =  O 

0018  IF  (IDP.EQ.  3)  ISCALE  =  1 

0020  IF  (IDP.EQ. 16)  ISCALE  =  2 

D  URITE<5, 1O0O)  MANTIS, IEXP, ISCALE, IFUNC, IDP 

D100©  FORMAT ( '  ',  15, '*10+*', 13, '  SCL',14,'  F',I4,'  DP', 08) 

0022  IEXP1  =  IEKP  +  ISCALE  -  3 

0023  DMM  =  FLOAT (MANTIS)*10. 0++IEXP1 

0024  GO  TO  900 

C  CHECK  TO  SEE  IF  THE  DMM  NEEDS  TO  HAUE  THE  SCALE  CHl=N(2D 
0025  10  CONTINUE 

0026  WRITE(7, 100)  IEXP+2 

0027  100  FORMAT ( '  SET  THE  KEITHLEV  ELECTROMETER  TO  THE  10  TO  THE  ',13. 

2  'SCALE'/'  CARRIAGE  RETURN  WHEN  SET',*) 

0028  PAUSE 

0029  GO  TO  1 

0030  900  CONTINUE 

0031  RETURN 

0032  END 
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0001  FUNCTION  IDMMC1  CIDIG^LEN) 

0002  INTEGER  IDIG<LEN> 

C 

C 

0003  ISIGN  =  IDIG< 1) .fiND.2 

0004  IDMMCl  =  IDIG<1).RND. 1 

C 

0005  DO  10  I  =  2.LEN 

0006  IDMMCl  =  10+ IDMMCl  +  IDIG<I) 

000?  10  CONTINUE 
C 

0008  IF  <ISIGN.EQ.0>  IDMMC1*-IDMMC1 

C 

0010  RETURN 

0011  END 
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0001 


0002 

0003 

0004 

0005 

0006 

000? 

0009 

0010 

0012 

0014 

0015 

0016 

0017 

0013 

0019 

0020 

0022 

0023 

0024 

0C25 


0026 

0027 

0023 

0030 

0031 

0032 


INTEGER  FUNCTION  MAGNET  (FLDSET, FLD) 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  MODULE  WILL  SET  THE  MRGNET  TO  THE  DESIRED  FIELD  URLUE. 

C  IT  TAKES  THE  FIELD  SETTING  AND  COMPUTES  THE  REQUIRED  NUMBER 
C  OF  STEPS  AND  SETS  THEM.  IT  THEN  CHECKS  THE  GAUSS  METER  AND  MAKES  ANV 
C  MORE  REQUIRED  ADJUSTMENTS.  THIS  DRIUER  INCORPORATED  THE  DRI'JER 
C  SUBROUTINES  WRITTEN  BV  DANE  HANBV  OF  UDRI. 

C 

c 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT,  JR. ,  USAF 

C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  DATA  SPECIFICATIONS 
C  EQPOUT 

BYTE  EQUIPFC10.3) 

INTEGER  IEIOF , EOFLAG < 7  > 

COMMON  /EQPOUT /'EOFLAG, EQU IPF >  IEIOF 
INTEGER  CRS 1 , OUT 1 , IN 1 , I N2 

DATA  CRS1/" 167770/, OUT  1/" 167772/, INI/" 167774/, IN2/" 167764/ 

C  CHECK  TO  SEE  IF  THE  MAGNET  CONTROLLER  IS  INOPERAT IUE 
IF<EOFLAG<5).NE.0>GO  TO  300 
FLDMRG=ABS  <  FLDSET  )  -ABS  <  FLO  ) 

C  DETERMINE  THE  POLARITY  TO  WHICH  THE  MAGNET  MUST  BE  SET. 

IFCFLDSET.EQ.Q.O)  GO  TO  3 
IF  C FLDSET .  GT .  0 . 0 )  GO  TO  2 
IREU=1 
GO  TO  3 

2  CONTINUE 

IREU=0 

3  CONTINUE 

C  SET  THE  POLARITY  OF  THE  MAGNETIC  FIELD. 

IS  IGN=  IPEEK  <  OUT  1 ) .  A1  !D  .16334 
IFCISIGN.EQ. IREU)  GO  TO  43 

IREG=  IPEEK  ■:  OUT  1 ) .  AND  ."137777 
IOUT=IREG.GR.  <  IREU+16334) 

CALL  IPGKECOUTl, IOUTJ 

49  CONTINLE 

C  NOW  CALCULATE  THE  NUMBER  OF  STEPS  REQUIRED  TO  SET  THE  FIELD  TO  THE 
C  DESIRED  SETTING.  USING  THE  FOUR  TO  ONE  RATIO  PULLEY,  THE  PARAMETERS  ARE: 

C  130  STEPS/SHRFT  REUOLUTION,  AT  4:1 - 720  STEPS/KGAUSS ,  100  STEPS/SEC  RATE. 

C  EXPERIMENTAL  TESTING  REPEALED  THAT  720  STEPS  WAS  INCORRECT;  THE 
C  CORRECT  URLUE  IS  733.46  STEPS/KGAUSS. 

NSTEPS=AtS < FLDMAG >+733,46 

C  FIND  THE  DIRECTION  OF  TRAUEL  TO  THE  STEPPER  MOTOR 

IDIR=2 

IF  CFLDMAG. GT . 0. 0} ID IR- 1 
IOUT=IASH( IDIR, 12, IDUM) 

J=IQSET<2) 

C  MOUE  THE  STEPPER  MOTOR  AS  REQUIRED 

50  CONTINUE 
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AD-A080  175  AIR  FORCE  INST  OF  TECH  MRISHT-RATTERSON  AFB  OH  SCHOO— ETC  F/»  9/2 
1  AUTOMATED  HALL  EFFECT  EXPERIMENT  DATA  ACQUISITION  SYSTEM  <AHEED— ETC» J) 

XC  79  C  A  VERCHOT 

UNCLASSIFIED  AFIT/9C0/IE/790-S  NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS  1963 -A 


0033 

DO  10  1=1 iNSTEPS 

0034 

CALL  IBISA<  IOUT > OUT 1) 

0035 

CALL  IB ICR < IOUT j OUT  1) 

0036 

K=ISLEEP<0, 0,0,1) 

0037 

10 

CONTINUE 

C 

NOW  CHECK  THE  MAGNET  OUTPUT  FOR  STAB I LI TV 

0038 

20 

CONTINUE 

0039 

IF<< IPEEKC IN2) . AND. "2) . EQ.0)GO  TO  30 

0041 

IF<aPEEK<IN2).AND.“l).EQ.0)GO  TO  30 

0043 

GO  TO  40 

0044 

30 

CONTINUE 

0045 

M=ISL£EP<0, 0,1,8) 

0046 

GO  TO  20 

004? 

40 

CONTINUE 

C  NOt'  CHECK  THE  GAUSSMETER 

0048 

IF<EOFLAG<7>.NE.0)GO  TO  60 

0050 

DF IELD=ABS  CFLDSET ) -A6S< GAUSS ( IOULD) ) 

0051 

IFCABS<DFIELD).LE.0.01)GO  TO  60 

0053 

NSTEPS=ABS  <DF I ELD ) +738. 46 

0054 

IDIR=2 

0055 

IFCDFIELD.GT.0.0)IDIR=1 

0057 

GO  TO  50 

0058 

60 

CONTINUE 

0059 

MAGNET* 1 

0060 

GO  TO  900 

C  GET 

OPERATOR  TO  SET  MAGNET  MANUALLY  BECAUSE  MAGNET  CONTROLLER 

0061 

800 

CONTINUE 

0062 

WRITE<7»3000)  FLDSET 

0063 

8000 

FORMAT C '  PLEASE  SET  THE  MAGNET  TO'.G 14.7,'  KGAUSS'/ 

2  '  ENTER  AN  INTEGER  WHEN  UALUE  IS  SET  AND  STABLE 

0064 

READ'S.*)  INT 

0065 

MAGNET=1 

0066 

900 

CONTINUE 

0067 

FLD=FLDSET 

0068 

RETURN 

0069 

END 

( 
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0001  FUNCTION  D'JIK  IFUNC) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  MODULE  CALLS  THE  SCANNER  AND  THE  DIGITAL  UQLTMETER  BV 
C  CALLING  THE  GPIB,  IEEE  433-1975  INTERFACE  PROGRAM.  THE  NECESSARV 
C  COMMAND  STRINGS  ARE  LOADED  INTO  BVTE  ARRAYS  AND  PASSED  TO 
C  THE  INSTRUMENT  UIA  THE  GPIBU1MAC  SUBPROGRAM.  THE  DETAILS 
C  OF  THE  CONTROL  OPTIONS  ARE  SET  OUT  IN  THE  MANUALS  OF  THESE 
C  THREE  INSTRUMENTS:  HP  SCANNER,  HP  DIGITAL  VOLTMETER, AND  THE 
C  NATIONAL  INSTRUMENTS  GPIB  INTERFACE.  THE  SEQUENCE  OF  EUENTS 
C  IS  AS  FOLLOWS: 

C  THE  PROGRAM  CALLS  THE  GPIB  AND  PASSES  TO  IT  THE  COMMAND 
C  ARRAV  FOR  THE  SCANNER. 

C  THE  SCANNER  IS  DIRECTED  TO  CLOSE  ONE  PARTICULAR  CHANNEL. 

C  THE  GPIB  IS  THEN  CALLED  AGAIN  TO  PASS  A  COMMAND  ARRAV  TO 

C  THE  DIGITAL  UOLTMETER  WHICH  CAUSES  THE  DATA  TO  BE  READ  FROM 

C  IT  INTO  THE  PROGRAM.  THERE  IT  IS  DECODED  FROM  THE  ASCII  CODE 

C  AND  PUT  INTO  A  REAL  FLOATING  POINT  UARIABLE. 

C 

C  THIS  IS  DONE  EACH  TIME  THE  'JOLT  METER  IS  NEEDED  TO  MAKE  A  READING. 

C  THE  DUM  IS  THEN  RESET  TO  READ  THE  THERMOMETER  UOLTAGE  CONTINUOUSLY. 

C 

C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT ,  JR. ,  USAF 

C 

C 

C 

C  DATA  SPECIFICATIONS 
C 

0002  BVTE  MPX0C3) , MPX1 (3) , MPX2C3) , DUMCQMC14) > UALUEC 15) , DUM0NC4) 

0003  INTEGER  ERRET 

0004  DATA  MP>:0/'0', '0','EV 

0005  DATA  MPKl/"0y,'l','EV 

0006  DATA  MPX2/'0y,'2','E'/ 

0007  DATA 

0008  DATA  DVMGN/yT','3','T','3'/ 

0009  ICOUNT=0 


0010 

1 

CONTINUE 

0011 

ASSIGN  1  TO  ERRET 

C 

INITIALIZE  THE  DIGITAL  VOLTMETER 

0012 

IFCIFUNC.NE.0)  GO  TO  10 

0014 

I=IBUPC0,3,DVMCGM,14> 

0015 

IFa.NE.0)GO  TO  800 

0017 

GO  TO  900 

0013 

10 

CONTINUE 

0019 

ASSIGN  10  TO  ERRET 

c 

READ  THE  APPLIED  VOLTAGE 

0020 

It 

CONTINUE 

0021 

ASSIGN  11  TO  ERRET 

0022  IFCIFUNC.NE.DGO  TO  20 

C  FIRST  SET  THE  MULTIPLEX  SCANNER (HP3495A)  TO  SELECT  THE  PROPER  CHANNEL 
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0024 

J=IBUP<0, 2,  MPX0i 3) 

0025 

IFCJ.NE.0>GO  TO  810 

C 

NOW  READ  THE  DUN  DATA 

002? 

K1=IBUPC0,3,DUMON,4) 

0028 

K=IBUP  C 1,3,  UALUE, 15) 

0029 

K2=IBUP<2,3> 

C 

DECODE  THE  DUM  OUTPUT 

0030 

DECODEC 13, 100, UALUE)  DUM 

0031 

100 

F0RMATCE13.7) 

0032 

GO  TO  900 

0033 

20 

CONTINUE 

0034 

ASSIGN  20  TO  ERRET 

C 

READ  THE  SAMPLE  UOLTAGE 

0035 

IFC IFUNC.NE.2)G0  TO  30 

C 

FIRST  SET  UP  THE  HP3495A  TO  THE  PROPER  CHANNEL 

003? 

L=IBUP<0,2,MPX1,3> 

0038 

IFCL.NE.0)GO  TO  310 

C 

NOW  READ  THE  DUN 

0040 

L 1= IBUP  <0, 3 , DUMON , 4 ) 

0041 

L= IBUP Cl, 3, UALUE, 15) 

0042 

L2=IBUPC2,3) 

C 

DECODE  THE  DUM  DATA  OUTPUT 

0043 

DECODE  C 13, 100, UALUE)  DUM 

0044 

GO  TO  900 

0045 

30 

CONTINUE 

0046 

ASSIGN  30  TO  ERRET 

C 

READ  THE  TEMPERATURE  FROM  THE  SILICON  THERMOMETER 

004? 

IF  C I FUNC . NE . 3 )GG  TO  820 

C 

FIRST  SET  UP  THE  HP  3495A  TO  THE  PROPER  CHANNEL 

0049 

M=IBUPC0, 2,MPX2,3) 

0050 

IFCM.NE.0)GO  TO  810 

c 

NEW  READ  THE  DUM 

0052 

M 1 = IBUP  C0 , 3 , DUMON , 4 ) 

0053 

M=IBUPC 1,3, UALUE, 15) 

0054 

M2=1BUPC2,3) 

c 

DECODE  THE  DUM  DATA  OUTPUT 

0055 

DECGDEC13, 100, UALUE)  DUM 

0056 

GO  TO  900 

005? 

800 

CONTINUE 

C  ERROR  MESSAGE  FOR  ERROR  IN  INITIALIZATION  OF  HP  3455A 

0058 

WR I TEC?, 8800) 

0059 

8008 

FORMATC'  GPIB  INITIALIZATION  OF  HP3455A  FAILED') 

0060 

IFCICOUNT.NE.0)STOP  '  3455A  FAILURE' 

0062 

1C0UNT=1 

0063 

GO  TO  ERRET 

0064 

810 

CONTINUE 

C  ERROR  IN  PASSING  COMMAND  ARRAV  TO  MPX  SCANNER. 

0065 

WR I TEC?, 8100) 

0066 

8100 

FORMAT C'  GPIB  FAILED  TO  SET  HP3495  SCANNER  PROPERLY 

006? 

IFCICOUNT.NE.0)STOP  '  3495A  FAILURE' 

0069 

ICOUNT=l 

0070 

GO  TO  ERRET 

0071 

820 

CONTINUE 

183 


C  FUNC  ms  AN  ILLEGAL  VALUE 
0072  URITE<?,8200> 

0073  8200  FORMAT <'  FUNC  IN  DUM  ROUTINE  HAS  AN  ILLEGAL  VALUE' 

0074  900  CONTINUE 

C  RESET  THE  DUN  TO  READ  TEMPERATURE  VOLTAGE  CONTINUOUSLY 
0073  N=IBUP(0j2jMPX2>3) 

0076  RETURN 

0077  END 


r 
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0001 


0002 

0003 

0004 

0003 

0006 

000? 

0003 

0009 


INTEGER  FUNCTION  ULTAGE OJLTSET ) 


C  THIS  PROGRAM  SETS  THE  HP39501A  POWER  SUPPLY  PROGRAMMER  TO  THE 
C  THE  DESIRED  OUTPUT  'JOLT AGE.  THE  POWER  SUPPLY  MUST  EE  SET  TO  THE 
C  UNIPOLAR  MODE.  THE  ALLOWABLE  RANGE  OF  UALUES  IS  0.00  TO  9.99  UOLTS. 
C 
C 

C  AUTHOR:  CAPTAIN  EDGAR  A.  UERCHOT,  JR.,  USAF 

C 


C  DATA  SPECIFICATIONS 
BVTE  SETC0MC4) 

C  FIRST  ENCODE  THE  UOLTAGE  SETTING  TO  THE  PROPER  URLUE  IN  ASCII  CODE 
IULT= CULTSET* 100 ) +2000 
ENC0DEC4, 100,SETCOM)  IULT 


100  F0RNAT<I4> 

C  NOW  CALL  THE  HP39501 

I=IBUP<0,1,SETCOM,4> 

ULTAGE=1 


RETURN 


END 
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.TITLE  DMM 
.  SBTTL - 


--  KEITHLEV  DMM  DRIVER 
-  INTRODUCTION 


PURPOSE:  THESE  ROUTINES  SUPPORT  THE  KEITHLEV  INSTRUMENTS,  INC. 

MODEL  616  DIGITAL  ELECTROMETER  EQUIPED  WITH  THE  MODEL 
6162  ISOLATED  OUTPUT/CONTROL  AS  INTERFACED  BY  UDRI. 


AUTHOR:  FRANK  E.  BEITEL  (UDRI)  8-JUN-79 
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--  INTERFACE  DEFINITION 


INTERFACE  DEFINITION: 

THE  INTERFACE  CONSISTS  OF: 


1.  CABLE  FROM  DMM  TO  LOGIC  BOX 

2.  CABLE  FROM  LOGIC  BOX  TO  LSI-1 I 

3.  ONE  DRU-11  INTERFACE  BOARD  TO  PROVIDE  16  BITS  OF  DATA 
IN  EACH  DIRECTION 

4.  LOGIC  BOX  TO  PERFORM  DIGITAL  SIGNAL  CONDITIONING. 


CONTROL  SIGNALS  FROM  DMM  TO  COMPUTER 


SIGNAL  CONN  PIN 


PIN 


DESCRIPTION 


REQA 


J1  LL 


10  FLAG  (LATCHED  IN  LOGIC  BOX) 


.PAGE 

.SBTTL 


DEFINITIONS:  DATA  SIGNALS  (DMM  TO  LSI-11) 


DATA  SIGNALS  FROM  DMM  TO  COMPUTER 


; 

• 

SIGNAL 

CONN 

PIN 

PIN 

DESCRIPTION 

9 

S 

s 

IN00 

J2 

TT 

21 

DISPLAY  1  X 

l 

IN01 

J2 

LL 

43 

POLARITY 

l 

IN02 

J2 

H 

13 

ZERO  CHECK 

186 

h 


IN03 

J2 

BB 

7 

DPI  (DECIMAL  POSITION) 

IN00 

J2 

TT 

30 

DISPLAY  1  X  10**2 

(STROBE  5) 

INOl 

J2 

LL 

25 

DISPLAY  2  X  10**2 

IN02 

J2 

H 

26 

DISPLAY  4  X  10**2 

IN03 

J2 

BB 

24 

DISPLAY  8  X  10**2 

IN00 

J2 

TT 

47 

DISPLAY  1  X  10**1 

(STROBE  4) 

IN01 

J2 

LL 

29 

DISPLAY  2  X  10** 1 

IN02 

J2 

H 

28 

DISPLAY  4  X  10**1 

I  NOS 

J2 

BB 

46 

DISPLAY  8  X  10**1 

INOO 

J2 

TT 

17 

DISPLAY  1  X  10**0 

(STROBE  3) 

INOl 

J2 

LL 

12 

DISPLAY  2  X  10**0 

IN02 

J2 

H 

11 

DISPLAY  4  X  10**0 

I  NOS 

J2 

BB 

16 

DISPLAY  8  X  10**0 

INOO 

J2 

TT 

42 

EXP  1  X  10**1 

INOl 

J2 

LL 

41 

EXP  POLARITY 

IN02 

J2 

H 

44 

FI 

(STROBE  1) 

I  NOS 

J2 

LBB 

45 

F2 

INOO 

J2 

TT 

37 

EXP  1  X  10**0 

(STROBE  2) 

INOl 

J2 

LL 

23 

EXP  2  X  10**0 

IN02 

J2 

H 

35 

EXP  4  X  10**0 

IN03 

J2 

BB 

34 

EXP  8  X  10**0 

INOO 

J2 

TT 

8 

DR  (DOMN  RANGE) 

(STROBE  6) 

INOl 

J2 

LL 

9 

UR  (UP  RANGE) 

IN02 

J2 

H 

- 

***UNASSIGNED*** 

IN03 

J2 

BB 

— 

***t  INASS  IGNED*** 

INOO 

J2 

TT 

22 

DP2 

(STROBE  9) 

INOl 

J2 

LL 

5 

DP3 

1N02 

J2 

H 

6 

DP4 

IN03 

J2 

BB 

23 

DPS 

INOO 

J2 

TT 

31 

MANUAL  RANGE 

(STROBE  S) 

INOl 

J2 

LL 

32 

R1 

IN02 

J2 

H 

14 

R2 

I  NOS 

J2 

BB 

33 

R3 

.PfiGE 

.SBTTL  -  DEFINITIONS:  DATA  SIGNALS  (LSI-11  TO  DM1) 


DATA  SIGNALS  FROM  COMPUTER  TO  DMM 


SIGNAL  CONN  PIN 


PIN 


DESCRIPTION 


OUT00 

J1 

C 

36 

STROBE  5 

OUT01 

J1 

K 

1 

STROBE  4 

OUT  02 

J1 

NN 

18 

STROBE  3 

OUT03 

J1 

U 

19 

STROBE  l 

OUT04 

J1 

L 

49 

STROBE  2 

OUT  05 

Jl 

N 

48 

STROBE  6 

OUT06 

J1 

R 

20 

STROBE  8 

OUT07 

Jt 

T 

39 

STROBE  9 

OUT 08 

Jl 

U 

2 

OUTPUT  HOLD 

OUT  09 

Jl 

X 

50 

DISPLAY  HOLD 

OUT  10 

Jl 

Z 

31 

MANUAL  RANGE 

OUT  11 

Jl 

AA 

32 

R1 

OUT  12 

Jl 

BB 

14 

R2 

OUT  13 

Jl 

FF 

33 

R3 

OUT  14 

Jl 

HH 

15 

ZERO  CHECK 

OUT  15 

Jt 

JJ 

— 

STROBE  S  CLOGIC  BOX  CONTROL) 

.PAGE 
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DEFINITIONS:  TRUTH  TABLES 


* 

FUNCTION  F2  FI  *  * 


OHMS 

COULOMBS 

AMPERES 

'JOLTS 


0  0  *  * 

0  1  *  * 

1  0  s** 

1  1  *  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 


SENSITIUITY 


.01 

.01 

.01 

.01 

.1 

1. 

10. 

100. 


R4  R2  R1 


0  0  0 
0  0  1 
0  10 
0  11 


0  0 


.PAGE 

.SBTTL  -  DEFINITIONS:  CONSTANTS  AND  GLOBAL  SYMBOLS 

.CtC  ALL  .REGDEF 
.REGDEF 


*****  DEFINE  ENTRY  POINTS 
.GL06L  IDMMGT 

*****  DEFINE  INTERRUPT  'JECTOR  ADDRESSES 


* 

w 
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.GLOBL  DMMRDV 
DMMRDV=330 
S 

2  *****  DEFINE  DEMICE  ADDRESSES 
2 

S  .GLOBL  DMMCSR,  DMMIN,  DMMOUT 

DMMCSR= 167750 
DMMIN=DMMCSR+4 
DMMOUT =DMMCSR+2 

•  PAGE 

•  SBTTL  IDMMGT  —  GET  DATA  FROM  DMM 

3 

i  PURPOSE:  FORTRAN  CALLABLE  FUNCTION  WHICH  CHECKS  TO  SEE  IF  THE 
J  KEITHLEV  DMM  HAS  DATA  READV  AND,  IF  SO,  GETS  IT.  THIS 

i  FUNCTION  RETURNS  ZERO  (.FALSE.)  IF  THE  DMM  IS  DISABLED. 

• 

;  CALLING  SEQUENCE: 

9 

i  L  =  IDMMGT  (IDATA) 

3 

1  OUTPUT  PARAMETERS: 

9 

S  L  —  TEST  RESULT 

;  L  =  .FALSE.  (OR  INTEGER  0)  —  NO  DATA  READV  OR 

;  DM1  DISABLED 

;  .TRUE.  (OR  INTEGER  I)  —  DATA  READV 

2 

2  IDATA  —  9-ELEMENT  INTEGER  UECTOR  CONTAINING  THE 

2  DATA  READ  FROM  THE  DMM. 


***********************  ^t********************************************** 


; 


IDMMGT 

• 

■ 

CLR  R0 

2R0,R1  <-  FORTRAN  LOGICAL  .FALSE 

CLR 

R1 

BIT 

#200,DMMCSR 

;IF 

DMM  HAS  DATA  READV,  THEN 

BEQ 

2S 

MOU 

2(R5),R2 

• 

9 

R2  <-  ADDR(IDATA(1)) 

MOU 

#1,R3 

• 

9 

R3  <-  MASK  FOR  STROBE 

f 

MOU 

#9. ,R1 

• 

9 

Rl  <-  NUMBER  OF  CHANNELS  TO  STROBE 

If: 

MOU 

R3, DMMOUT 

• 

9 

FOR  1  =  1  TO  9. 

MOU 

DMMIN, (R2) 

• 

9 

IDATA(I)  <-  VALUE  FROM  CHAN  l 

BIC 

#177760, (R2>+ 

• 

9 

KEEP  ONLV  LOU  ORDER  4  BITS 

ASL 

R3 

9 

SOB 

Rl,  if 

; 

END  FOR 

9 

CLR 

DMMOUT 

; 

CLEAR  DMM  CONTROL  REGISTER 

f 

INC 

RO 

; 

R0,R1  <-  FORTRAN  LOGICAL  .TRUE. 

2$: 

RTS 

PC 

i RETURN 

.END 
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• 

. GlOBL 

FLOAT 

FLOATS 

CLR 

RO 

MOU 

*2<R5>,-<SP> 

iGET  THE  INTEGER  TO  BE  COMJERTED 

BGE 

It 

JIF  NEGATIOE  THEN 

MOO 

#100000, RO 

i  R0  <-  SIGN  BIT  ON 

NEG 

<SP> 

l  MAKE  IT  POSITIOE 

It: 

MOO 

BIAS,-CSP) 

SMAKE  IT  FLOATING  POINT 

CLR 

-CSP) 

MOO 

BIAS,-<SP> 

FSUB 

SP 

BIS 

R0, <SP> 

MOO 

<SP)+.R0 

MOO 

(SP)+,R1 

RTS 

PC 

BIAS: 

.WORD 

046000 

JTHIS  IS  THE  HIGH  UORD  OF  A  FLOATING  POINT 

• 

;2**24 

P 

.END 

190 


.TITLE  I BCD 

.PSECT  tCODE  , RW , I , LCL , REL ,  CON 
.GLOBL  I BCD 

IBCD:  MOU  &2(R5)iRl  ;GET  FIRST  RRG 

CLR  R0 

CLR  R3 

MOU  #4jR2 

If.  flSHC  t4,R0  i SHIFT  R0.R1  FOUR  BITS 

MUL  #10.,R3 

ADD  R0.R3 

SOB  R2.  U 

MOU  R3.R0 

RTS  PC 

.END 


( 
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*!«H 


FILE  MVLIB.OBJ  IS  A  LIBRARY  OF  ROUTINES  DE'JELGPED  BY  FRANK  BEITAL, 

UDRI,  AFML/DOC.  ANY  QUESTIONS  OR  PROBLEMS  WITH  IT  CAN  BE  DIRECTED  TO 
L/DOCj  MR.  FRANK  BEITRL.  THE  AHEEDAS  SYSTEM  USES  THE  ROUTINES  IASH/IBICA, 
IBISA.  IASH>  IBICA  AND  IBISA  ARE  USED  IN  THE  MAGNET  DRIUER. 


THE  AHEEDAS  SYSTEM  IS  ftM  OUERLAVED  SYSTEM.  IT  WAS  LINKED 

IH  THE  FOLLOWING  MANNER.  IF  fl  LINK  MAP  IS  DESIRED  ASS  LPs  MRP: ,  OTHERWISE 
ASS  NL:  MAP:  u  wuc. 

R  LINK 

AHEDAS.  SAUi  MAP:  =A0,HPDRI'J,DX0:  SYSLIB// 

Al/O: 1 

A2, A3, A4 , DRIUR2 , FLOAT , DMMGT/O : 1 
IBUPIj IBUDP1, IBCD.MYLIB 
A5/0:  1/v 

ARESTOTUOrTUPE  USED  FOR  ANY  FUTURE  UERSIONS  OF  AHEDAS  IF  THE  OVERLAYS 


( 
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of  memory  is  used  to  control  the  experiment.  Software  was  developed  to 
allow  this  system  to  handle  the  acquisition  and  processing  of  data.  The 
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